String jeweils nach einem Punkt auslesen

[Matze]

Copy('Haus', 2, 1); Das ist ein Beispiel, genaueres dazu findest du in der OH.
Sobald du die erste Klammer eingibst, solltest du sehen, welche Parameter erwartet werden.

[barf00s]

Zitat:

sTextNachPunkt := Copy(sOriginal, Pos('.', sOriginal) + 1, Length(sOriginal));

und

sTextVorDemPunkt := Copy(sOriginal, 1, Pos('.', sOriginal) - 1); SubString := Copy(QuellString, StartIndex, Längedeszukopierendenstrings);

[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