Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: FloatToStrF ??

    Delphi
    by Sharky, 2. Okt 2004
  :wall:
  Warum mache ich das eigentlich so kompliziert?
  function StrRight2 (Const str : string; size : Integer) : String;
  var
  foo : String;
  ndx : Integer;
  begin
  if (Length (str) > size) then
  begin
  result := 'Fehler';
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: FloatToStrF ??

    Delphi
    by Sharky, 2. Okt 2004
  Hai Hansa,
  
  IMHO füllt FloatToStrF den String links nicht mit ' ' auf.
  Mit einer kleinen Funktion sollte es aber möglich sei das selber zu machen. Hier mal etwas auf die Schnell:
  function StrRight (Const str : string; size : Integer) : String;
  var
  foo : String;
  ndx : Integer;
  apos : Integer;
  begin