Einzelnen Beitrag anzeigen

Albi

Registriert seit: 4. Mai 2003
Ort: Berlin
458 Beiträge
 
Delphi 7 Professional
 
#3

Re: ListView Items in einer TextDatei speichern

  Alt 10. Mär 2004, 19:41
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.
  Mit Zitat antworten Zitat