String zerlegen

[Der_Unwissende]

HI,
wenn du dass alles als String verschickst, kannst du entweder Trennzeichen einfügen und dann (z.B. durch eine TStringList) zerlegen.
Wenn du immer genau eine Ziffer möchtest, kannst du auf die einzelnen Chars eines Strings auch per Index (achtung bei 1 beginnend) zugreifen. Dann musst du nur den Wert - 48 nehmen und hast die Ziffer

Delphi-Quellcode:

var s : String;
    i : Integer;
    digits : Array of Integer;
begin
  setLength(digits, length(s));
  for i := 1 to length(s) do
    begin
      digits[i] := ord(s[i]) - 48;
    end; 
end;

Das sollte reichen

Gruß Der Unwissende