Parse Funktion?

[sh17]

Wenn der Aufbau immer der gleiche ist, dann so:

alles in eine StringList

Delphi-Quellcode:

var
  hstr : String;
  list : TStringList;
begin
  list := TStringList.Create;
  list.text := meintext;

  for i := 0 to list.count-1 do
  begin
    hstr := list[i];
    Delete(hstr,1,Pos(':',hstr)+1);
    list[i] := hstr;
  end;

  list.Free;
end;