Jak zapisujesz dane w pliku tekstowym to oddziel je od siebie jakimś znakiem np. | przykładowa linia pliku tekstowego powinna wyglądać tak:
tytul|gatunek|opis
Póżniej tak zapisane dane możesz wczytać do ListView np. w ten sposób:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TArrayStr = array [0..2] of string;
TForm1 = class(TForm)
btnWczytaj: TButton;
ListView1: TListView;
procedure btnWczytajClick(Sender: TObject);
private
{ Private declarations }
procedure Explode(str: string; sep: Char; var a: TArrayStr);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Explode(str: string; sep: Char; var a: TArrayStr);
var
p, i: Integer;
begin
i:=0;
repeat
p:= Pos(sep, str);
if (p = 0) then
p:= Length(str) + 1;
a[i]:= Copy(str, 1, p - 1);
Delete(str, 1, p);
Inc(i);
until (Length(str) = 0)
end;
procedure TForm1.btnWczytajClick(Sender: TObject);
var
sl: TStringList;
i: Integer;
dane: TArrayStr;
li: TListItem;
s: string;
begin
sl:= TStringList.Create;
try
sl.LoadFromFile('dane.txt');
for i:=0 to sl.Count - 1 do
begin
s:= sl.Strings[i];
Explode(s, '|', dane);
li:= ListView1.Items.Add;
li.Caption := dane[0];
li.SubItems.Add(dane[1]);
li.SubItems.Add(dane[2]);
end;
finally
sl.Free;
end;
end;
end.