Thema: Delphi Umwandlungen

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Umwandlungen

  Alt 27. Sep 2003, 01:18
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.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat