Загрузка содержимого txt в ListView

[foxes]

Помогите загрузить данные с txt файла в ListView.
Допустим у меня есть строки в .txt например( имя,фамилия,адрес).

В ListView тоже есть 3 столбика, например( имя, фамилия, адрес).

Как можно сделать.
заранее спасибо

[goblinyara]

хммм.... как-как... если файл не слишком большой и скорость не сильно важна, то можно воспользоваться старой доброй паскалевской Readln, читать строки, а потом их парсить, выделяя имя, фамилию и адрес, и тогда уже добавлять в ListView... или нужен конкретно кусок кода?

[foxes]

Сообщение от goblinyara

хммм.... как-как... если файл не слишком большой и скорость не сильно важна, то можно воспользоваться старой доброй паскалевской Readln, читать строки, а потом их парсить, выделяя имя, фамилию и адрес, и тогда уже добавлять в ListView... или нужен конкретно кусок кода?

если можно пример

Спасибо

[Milky_Way]

Да,пример,был бы просто идеален

[Milky_Way]

Заранее спасибо

[bulldog5293]

сохранение и загрузка

Procedure SaveListView(S: String; Listview1: TListView);
Const Delimiter = '|';
Var ff: TextFile;
    t: Integer;
begin
 AssignFile(ff, S);
 ReWrite(ff);
 try
  With Listview1 Do For t:=0 to Items.Count - 1 Do
  WriteLn(ff,StringReplace(Items[t].Caption + Delimiter +
  Items.Item[t].SubItems.Text,#13#10,Delimiter,[rfReplaceAll]));
 finally
  CloseFile(ff);
 end;
end;

Procedure ReadListView(S: String; Listview1: TListView);
Const Delimiter = '|';
Var ff: TextFile;

Begin
 AssignFile(ff, S);
 Reset(ff);
 try
  While not Eof(ff) Do
   Begin
    ReadLn(ff,S);
    With Listview1.Items.Add Do
     Begin
      Caption:=Copy(S,1,Pos(Delimiter,S)-1);
      System.Delete(S,1,Pos(Delimiter,S));
      S:=StringReplace(S,Delimiter,#13#10,[rfReplaceAll]);
      SubItems.Text:=S;
     End; {With}
   End; {While}
 finally
  CloseFile(ff);
 end;
End;

[Milky_Way]

спасибо большое! очень выручили