Umwandlungen

[Christian Seehase]

Moin TopDogg,

wenn Du davon ausgehen kannst, dass die Editfelder gültige Werte enthalten kannst Du es ja ungefähr so machen. Die Umwandlung muss "zu Fuss" erfolgen.

Delphi-Quellcode:

var
  iCount : integer;
  i      : integer;
  xRes, yRes, FreqRate: Array[0..5] of Char;
  iResult : integer;
  iMul    : integer;

begin
  iCount := pos(#00,xRes);
  if iCount = 0 then iCount := 5;
  iResult := 0;
  iMul    := 10;
  for i := iCount-1 downto 0 do begin
    iResult := iResult + (ord(xRes[i])-$30)*iMul;
    iMul    := iMul*10;
  end;
end;

(kleiner Schnellschuss )

BTW: Ein String ist im Wesentlichen nicht viel anders als ein array of char.