ListView

0

Czy da się jakoś zapisać do pliku i odczytać z pliku wszystkie kolumny ListView?

0

To juz gdzies tu bylo , ja nie pamietam a nie chce mi sie sukac wiec moge ci z głowy podac sposub "na około" :

procedure TForm1.Button1Click(Sender: TObject);
var
TF : TextFile;
begin
Memo1.lines := Listbox1.Items;
AssignFile(TF, 'C:\xxx.txt');
Rewrite(TF);
try
Writeln(TF,Memo1.text);
finally
CloseFile(TF);
end;
end;

a odczytanie tak ;

procedure TForm1.Button1Click(Sender: TObject);
var
TF : TextFile;
S : String;
begin
AssignFile(TF, 'C:\xxx.txt');
Reset(TF);
try
while not Eof(TF) do
begin
Readln(TF, S);
Memo1.Lines.Add(S);
ListBox1.Items := Memo1.Lines;
end;
finally
CloseFile(TF);
end;
end;

ale napewni istnije wygodnijeszy sposub niz przenoszenie ten (jezeli jednak chcesz uzywac tego to radze ukryc memo)

--Ozyrys Pozdrawiam {hello}
Delphi 6

0

aj {wstyd} ListView ?? eee....to da sie przerobic na listview :-)
sorki za bład !!!--Ozyrys Pozdrawiam {hello}
Delphi 6

0

Dobrze ale w ListView moge mieć wiele kolumn

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0