Strings trennen

[oldmax]

Hi
Ein Vorschlag, der vielleicht etwas ungeschickt aussieht, dafür dir aber für solche Fälle immer eine Lösung bildet.

Delphi-Quellcode:

Funktion TMyForm1.GetTextElement(ElementNr: Integer; MeinTrennzeichen, MeinText: String): String;
Var RefStr     : String;
    Ausg       : String;
    ende       : Integer;
    i          : Integer;
begin
  Ausg:='';
  For i:= 1 To ElementNr do
  begin
    Ende:=Pos(MeinTrennzeichen,meinText);
    if Ende>0 then
    begin
      if i=ElementNr then Ausg:=Copy(RefStr,1,Ende-1) 
      else RefStr:=Copy(RefStr,Ende+1,Length(RefStr)-Ende);
    end else if i=ElementNr then Ausg:=RefStr;
  end; 
  Result:=Ausg;
end;

der Aufruf erfolgt dann für deinen Zweck

NeuStringwert:=GetTextElement(1,'-',AltString)+'-'+GetTextElement(3,'-',AltString); oder auch, so wirds vielleicht deutlich

NeuStringwert:=GetTextElement(1,'-','123-4567-890')+'-'+GetTextElement(3,'-','123-4567-890'); sollte ergeben '123-890'
Viel Spass
Gruß oldmax