Datoteke

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako da upisem neki tekst u datoteku? Recimo tekstualnu?
Na primer iz edit-a u tekstualnu datoteku ili da iscitam iz nje?

Hvala unapred!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nisi rekao za čega ti treba upis u datoteku? Probaj:
//deklarišeš   f: Textfile;   dir: string; ...  try   dir := ExtractFilePath(Application.Exename);   AssignFile(f,dir + '\Tekstualni_Fajl.txt');   Append(f);   Writeln(f, Edit1.Text);   Closefile(f);  except   on E: Exception do    ShowMessage(E.Message)  end; ...
A učitati, inverzno, .txt fajl u TMemo, npr., možeš:
// deklarises   f: Textfile;   dir,str: string; begin   dir := ExtractFilePath(Application.Exename);   AssignFile(f,dir + '\Tekstualni_Fajl.txt');   Reset(f);   Memo1.Clear;   while not eof(f) do    begin     Readln(f, str);     Memo1.Lines.Add(str)    end;   Closefile(f); //ili ...   dir := ExtractFilePath(Application.Exename);   Memo1.Lines.LoadFromFile(dir + '\Tekstualni_Fajl.txt'); ...
Naravno, ovo je trivijalan primer, kao što je rečeno, potrudi se u helpu naći ostatak, da optimizuješ problem.
Ako želiš pamtiti po izlasku iz programa koja vrednost ti je bila u TEdit komponenti, to je bolje raditi sa .ini fajlovima.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Recimo da treba da upises u Memo1...........(posto nisi rekao konkretno)
            Memo1.Lines.AddStrings(Edit1.text);
A da bi izcitao
var X1 : integer; .... for X1 := 0 to 500 do begin X1 := Memo1.lines.valuefromindex Edit1.text := Memo1.lines.strings[X1];

evo...........ako ti bude trebalo za neku drugu komponentu reci.........

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

LittleHacker kakve ima veze ovaj tvoj kod sa datotekama? Nigde ne vidim da koristis neku datoteku.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Izvinjavam se............Malopre nisam bas najbolje shvatio pitanje.......
evo ovako
na formu moras postaviti OpenDialog i SaveDialog komponente
SaveDialog1.files := Edit1.text; SaveDialogDialog1.execute; SaveDialogDialog.filter := .txt|*.txt ;
ovim kodom sejvujes fajl.........
OpenDialog1.Execute; OpenDialog1.filter := .txt|*.txt ; Edit1.text := OpenDialog1.files;
Ovim kodom otvaras snimljeni fajl

Ako zelis da tvoj program sadrzi extenziju(.txt;.exe;.mp3;) , tj fajl koju nijedan drugi program nemoze da promeni umesto
SaveDialogDialog.filter := .txt|*.txt ;
pisi
SaveDialogDialog.filter := .(extenzija koju zelis)|*.(ista extenzija) ;

i za otvaranje
OpenDialog1.filter := .txt|*.txt ;
pisi
OpenDialog1.filter := .(zeljena extenzija|*.(ista ta extenzija) ; \

nadam se da nisam negde pogresio opet............

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@LittleHacker
Hvala u svakom slucaju ali to sam znao, trebalo mi je ovo sto je loshmi_sr napisao. Nije isto kada snimas sa saveDijalogom i ovako, drugaciji je pristup itd.
Jos jednom hvala svima.