FloatToStrF ??

[Sharky]

Warum mache ich das eigentlich so kompliziert?

Delphi-Quellcode:

function StrRight2 (Const str : string; size : Integer) : String;
var
  foo : String;
  ndx : Integer;
begin
  if (Length (str) > size) then
  begin
     result := 'Fehler';
     Exit;
  end;
  for ndx := 1 to size - Length(str) do
  begin
    foo := foo + ' ';
  end;
  result := foo + str;
end;