Zapisywanie:
var
i: integer;
s: Tstringlist;
begin
S := TStringList.Create;
for i := 0 to ListView1.Items.Count-1 do
S.Add('"'+ ListView1.Items[i].Caption +'",'+ ListView1.Items[i].SubItems.CommaText);
S.SaveToFile('buddys.txt');
S.Free;
end;
Odczytywanie:
var
i:integer;
S:TStringList;
begin
S := TStringList.Create;
S.LoadFromFile('buddys.txt');
for i := 0 to ListView2.Items.Count-1 do
S.Add('"'+ ListView2.Items[i].Caption +'",'+ ListView2.Items[i].SubItems.CommaText);
end;
Moze mi ktos powiedziec co jest w kodzie z odczytywania nie tak? Zapisywanie dziala ok. Przy wczytywaniu tekstu (nacisnieciu buttona) nic sie na lisview2 nie dzieje.. nic nie wyswietla. obie listy maja taka sama strukture (kolumny). Prosze o pomoc.