Hallo,

Ich habe einen String in diesem Format in einem Edit-component:

Name1###Name2###name3 Ich möchte die ###'s entfernen und dann folgendermaßen in ein ListView eintragen:

ListView Item 1 = name1
ListView SubItem 1 = name2
ListView SubItem 2 = name3

Wie mache ich das am besten?

In Sachen Text aufsplitten:

1. TStringList erstellen
2. Delimeter auf '###' setzen
3. DelimetedText auf den Text deines Edits setzen
4. meineStringList[Nummer] gibt dir jetzt die Namen an

Nicht schnell, aber schnell implementiert: Anlegen einer Stringliste mit StrictDelimiter auf true und Delimiter auf '#', DelimitedText zuweisen und alle leeren Zeilen löschen. Anschließend String an Index 0 der Caption des ListItems zuweisen, Index 0 löschen und dann SubItems die Stringliste zuweisen.

[edit] @Günther: Delimiter ist ein Char und kein String, leider [/edit]

[edit2] Noch einfacher:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm24.Button1Click(Sender: TObject);
const
  MyText = 'Name1###Name2###Name3';
var
  sl: TStringlist;
  Item: TListItem;
begin
  sl := TStringlist.Create;
  try
    sl.Text := StringReplace(MyText, '###', sLineBreak, [rfReplaceAll]);
    if sl.Count > 0 then
      begin
        Item := ListView1.Items.Add;
        Item.Caption := sl[0];
        sl.Delete(0);
        Item.SubItems.Assign(sl);
      end;
  finally
    sl.Free;
  end;
end;

[/edit2]

Danke das funktioniert wunderbar
Kannst du noch grob erklären was in welche zeile passiert?
Weil, ich will es verstehen und nicht einfach kopieren.

Ich ersetze einfach die "###" jeweils durch einen Zeilenumbruch und packe das Ergebnis in die Stringliste, damit habe ich die Teile dann zeilenweise. Anschließend erzeuge ich das ListItem und weise ihm als Caption die erste Zeile der Liste zu. Diese lösche ich dann und weise die verbleibende Liste den SubItems zu. Das klappt, weil beide von TStrings abstammen. Das war schon alles.