String mit Hilfe einer Schleife zerteilen und auslesen

[SirThornberry]

Delphi-Quellcode:

var
  lCount: Integer;
  lMystr: String;
  lDsts : TStringList;
  lInt1,
  lInt2,
  lInt3 : Integer;
begin
  lMystr := '5;7:9';
  for lCount := 1 to Length(lMyStr) do
    if lMyStr[lCount] in [':', '|'] then
      lMyStr[lCount] := ';';

  lDsts := TStringList.Create();
  splitString(lMyStr, ';', lDsts);
  lInt1 := StrToInt(lDsts.Strings[0]);
  lInt2 := StrToInt(lDsts.Strings[1]);
  lInt3 := StrToInt(lDsts.Strings[2]);
  lDsts.Free;