Problem mit Größer als und Kleiner als

[Sidorion]

Delphi-Quellcode:

Const
  iMaxSuffix: Integer=3
  asSuffix: Array [0..iMaxSuffix] of String=(' Ohm', 'kOhm', 'MOhm', 'GOhm'); //beliebig erweiterbar
var
 iSuffix: Integer;
 dResult: Extended;
Begin
  ..
  iSuffix:=0;
  dResult:=StrToFloat(EditIrgendwas.Text);
  While (dResult / 1000 >0)
  And (iSuffix<=iMaxSuffix)
  Do Begin
    Inc(iSuffix);
    Result:=dResult / 1000;
  End;
  EditIrgendwasAnderes.Text:=FloatToStr(dResult)+asSuffix[iSuffix];
End;

.. ist aber nur so dahingeschrieben