Hier ein quick & dirty
PosEx() auch für D3:
Delphi-Quellcode:
function PosEx(const SubStr, S: string; Offset: integer): integer;
begin
Result := Pos(SubStr, Copy(S, OffSet, Succ(Length(S) - OffSet)));
if Result > 0 then Result := Result + Pred(Offset);
end;
TStringList gab es doch schon unter D3 - oder?
Delphi-Quellcode:
var
sl: TStringList;
s: string;
i: integer;
begin
s := 'G1: 32948893948.1 G2: 4324324.0';
sl := TStringList.Create;
i := ExtractBetween(s, '.', ' ', sl);
ShowMessage(IntToStr(i) + #13#10 + sl.CommaText);
sl.Free;
end;
Grüße vom marabu