TString - String (Listview und SubItems Ausgabe in String)

[arne99]

Problem:
Ich will die SubItems (Werte) als String in einen String packen.

Fehler: TStrings und string - Inkompatible Typen

Frage: Wie kann ich die SubItems als String verwenden?


Das ist der Code:

Delphi-Quellcode:

 for I := 0 to listview1.Items.Count - 1 do
  begin
  richedit1.Lines.AddStrings(
  '<configuration name="' + listview1.Items[i].Caption + '"' + #13#10 +
  'ds-name="' + listview1.Items[i].SubItems[0] + '"' + #13#10 +
  'service-url="' + listview1.Items[i].SubItems[1] + '"' + #13#10 +
  'lfs-cache-path="' + listview1.Items[i].SubItems[2] + '"' + #13#10 +
  'lfs-config-name="' + listview1.Items[i].SubItems[3] + '" />');
    end;

[inherited]

Du nimmst "AddStrings" der RichEdit-Komponente. Diese erwartet "TStrings" und nicht, was du übergibst, nämlich einen stinknormalen String. Nimm Add statt AddStrings.

[DGL-luke]

du könntest es so machen:

stringlist1.text := stringlist1.text + 'dein ganzer sermon'; Allerdings sollte "items.add('dein ganzer sermon');" auch reichen.

[arne99]

danke, klappt!

[Muetze1]

Zitat von DGL-luke:

du könntest es so machen:

stringlist1.text := stringlist1.text + 'dein ganzer sermon'; Allerdings sollte "items.add('dein ganzer sermon');" auch reichen.

... und deutlich schneller sein, da er nicht vorher die Zeilen zu einem String kombinieren muss, zurück geben, einen String anhängen muss und danach die Items-Liste leer macht und erneut diesen neuen String durchlaufen, aufteilen und den Items zuweisen muss.