Загрузить текст в listview

[AquaKlaster]

Нужна помощь, нужно загрузить текст в компонент listview, тоесть есть текстовик с содержимым(mail;pass) и компонент listview в нём две колонки(mail и pass) соответственно нужно загрузить то что до знака " ; " в колонку mail и то что после знака " ; " в колонку pass! Зарание спасибо!

[Neeter]

Вот:

procedure TForm1.bt_1Click(Sender: TObject);
var
 Mails: TextFile;
 Str, Mail, Pass: string;
 Item: TListItem;
begin
 AssignFile(Mails, 'D:\mails.txt');
 try
  Reset(Mails);
  while not EOF(Mails) do
  begin
   Readln(Mails, Str);
   Mail := Copy(Str, 1, Pos(';', Str) - 1);
   Pass := Copy(Str, Pos(';', Str) + 1, Length(Str));
   Item := ListView1.Items.Add;
   Item.Caption := Mail;
   Item.SubItems.Add(Pass);
  end;
 finally
  CloseFile(Mails);
 end;
end;

[AquaKlaster]

Спасибо, но это только парсинг текста, а как добавить в listview, напишите пример...

[Neeter]

Спасибо, но это только парсинг текста, а как добавить в listview, напишите пример...

Вы прочитайте внимательней код. Там есть добавление в ListView... Что за люди пошли, проверяйте сначала.

[AquaKlaster]

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

Вы прочитайте внимательней код. Там есть добавление в ListView... Что за люди пошли, проверяйте сначала.

Извиняюсь, действительно всё работает спасибо