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
Noch ist mein Rechner mir zu Diensten.... ansonsten habe ich die Macht ihn zu vernichten !