Das kannst Du über eine Schleife erledigen, lese die einzelnen Zeilen aus und schreibe sie in die Txt.
So in etwa:
Delphi-Quellcode:
rocedure TForm14.ExportInTxt;
var f: TextFile;
i,j: Integer;
tmp: String;
begin
AssignFile(f,ExtractFilePath(Application.ExeName)+'SerienTxt.txt');
rewrite(f);
WriteLn(f, 'Vorname;Name;Firma;Strasse;PLZ;Ort;');
for i := 0 to ListView1.Items.Count-1 do
begin
tmp := ListView1.Items.Item[i].Caption + ';';
for j:= 0 to ListView1.Columns.Count-2 do
tmp := tmp + ListView1.Items.Item[i].SubItems[j] + ';';
WriteLn(f, tmp);
end;
CloseFile(f);
end;
Wenn Du hier im Form suchst, findest Du noch mehr Lösungsvorschläge.