String jeweils nach einem Punkt auslesen

[marabu]

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