Joj izvini za onu gresku, to uvek uradim, ali posto sam pisao napamet nije bilo Delphija da me obavesti o tome pa da ispravim
...
Pa ta funkcija ( SaveToFile ) ce ti uvek prepisivat postojeci fajl... Ovaj put ces upisivanje ipak morati da odradis rucno...
Evo otpriliko koda:
Code:
.................
var f:textfile;
s:string;
i:integer;
begin
AssignFile( f,'nekifajl.txt' );
Append( f ); { zbog ovoga ce dopisivati u postojeci fajl, ali sada fajl MORA da postoji, moze se i to srediti, ali bi to malo komplikovalo kod, a tebi sada samo treba sustina :) }
for i := 1 to Listbox1.Count-1 do
begin
s:=ListBox1.Items.Strings[i];
Writeln(f,s);
end;
CloseFile(f);
................
Evo, ovo ce da ti radi 100% ( pisano u Delphiju ovaj put
)!
P.S. Na
ovoj adresi imas moj tutorial za rad sa datotekama ( sve operacije nad njima su opisanje ), pa malo pogleda, nece da skodi
...
listbox1.Items.SaveToFile(); kako sta?
...