ListView einträge in StringList kopieren?

[Akut-Programming]

Hi DPler!

Also ich würde gerne die Einträge, die in meiner ListView sind in eine StringList kopieren, um diese anschließend zu speichern.

Ist dies überhaupt so möglich? Wenn ja, könnt mir da jemand helfen??

[mirage228]

Hi,

klar geht das, nur bei mehrspaltigen ListViews müsstest du dir überlegen, wie du das in die StringList schreibst.

Bei einer einspaltigen Listview kannst du einfach alle Items per Schleife durchforsten und der StringList hinzufügen.

mfG
mirage228

[Akut-Programming]

Ja stimmt, im Moment brauch ich es zwar eigentlich nur für eine Spalte - hab es aber eigentlich dann auch so fürs nächste Prog verwenden wollen. Da gibts dann mehr Spalten .

Ich könnt doch aber auch die komplette Zeile (alle Spalten - eine Zeile) bevor ich se in die StringList einfüge zusammen setzen. also, das er in die StringList so zusagen jeweils den Wert "text_spalte1 text_spalte2 text_spalte3" usw. einfügt!?

[s14]

Dazu müssen in einer zweiten Schleife die SubItems mit "SubItems.Count" durchlaufen werden.

Gruß
s14

[Akut-Programming]

Achja diese lästigen SubItems - Hat da vielleicht schonjemand n Stücke Beispielcode für mich??

[s14]

So auf die Schnelle

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
const
  delim = #9;
var
  i, j: Integer;
  li:  TListItem;
  s: String;
begin
 // erstmal Einträge erstellen
  for i := 1 to 5 do
  begin
    li := Listview1.Items.Add;
    li.Caption := 'Index' + IntToStr(i);
    li.SubItems.Add('Text' + IntToStr(i));
  end;
 // Einträge in StringList einlesen
  with TStringList.Create do begin
    for i := 0 to Listview1.Items.Count-1 do
    begin
      s := Listview1.Items[i].Caption + delim;
      for j := 0 to Listview1.Items[i].SubItems.Count-1 do
        s := s + Listview1.Items[i].SubItems[j] + delim;
      Add(s);  
    end;
    SaveToFile(ChangeFileExt(ParamStr(0), '.txt'));
    Free;
  end;
end;

Nicht perfekt, aber als Denkanstoß...

Gruß
s14

[Akut-Programming]

Danke s14 - werds mir angucken und umsetzen!!

[EDIT] Kann man eigentlich auch die verwendete StringList anschließend drucken??? Also aus dem Prog raus. so wie StringList.Print vielleicht?? [/EDIT]

[mirage228]

kopiers in ein Memo und dann kannstes drucken

Memo1.Lines.Assign(Stringlist);


mfG
mirage228

[Akut-Programming]

Yo cool die Idee - Man man, wie gesagt...

[Akut-Programming]

Zitat von mirage228:

kopiers in ein Memo und dann kannstes drucken

Memo1.Lines.Assign(Stringlist);

Ja gesagt getan! Nur wie druck ich n Memo wär dann meine nächste Frage?! die ListView an sich hab ich schon exportieren können.