Herauslösen eines Strings im string

[Popov]

Nun noch vollständigkeits- und spaßeshalber, eine weitere OOP-Möglichkeit:

Delphi-Quellcode:

procedure TForm1.ButtonAddClick(Sender: TObject);
begin
  with ListBox1 do
    Items.Add('12345,[WASSER],Wasser ist, wie es ist=Muss geschützt werden, oder?')
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  s, s1, s2, s3, s4: String;
  sl: TStringList;
begin
  with ListBox1 do if ItemIndex < 0 then Exit;

  with ListBox1 do s := Items[ItemIndex];

  sl := TStringList.Create;
  try
    sl.Add(s);
    s4 := sl.Values[sl.Names[0]];
    sl.Delimiter := ',';
    sl.DelimitedText := sl.Names[0]; //kann man auch CommaText nehmen
    if sl.Count > 0 then s1 := sl[0] else s1 := '';
    if sl.Count > 1 then s2 := sl[1] else s2 := ''; //hier evtl. noch die eckigen Klammern löschen
    if sl.Count > 2 then s3 := sl[2] else s3 := '';
  finally
    sl.Free;
  end;

  ShowMessage(
   'Item-String: ' + s + #13#10 +
   'ID: '          + s1 + #13#10 +
   'HEADLINE: '    + s2 + #13#10 +
   'TEXT1: '       + s3 + #13#10 +
   'TEXT2: '       + s4
    );
end;