procedure TForm1.Button1Click(Sender: TObject);
var
i,j : Integer;
StrList : TStringList;
begin
ListView1.ViewStyle := vsReport;
ListView1.Clear;
with TStringList.Create do
try
LoadFromFile('ARCHIVO.TXT');
StrList := TStringList.Create;
for i := 0 to Count-1 do
begin
ExtractStrings(['|'], [], PChar(Strings[i]), StrList);
with ListView1.Items.Add do
begin
SubItems.Add(StrList.Strings[0]);
SubItems.Add(StrList.Strings[1]);
StrList.Clear;
end;
end;
StrList.Free;
finally
Free;
end;
end;