FloatToStrF ??

[Sharky]

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:

Delphi-Quellcode:

function StrRight (Const str : string; size : Integer) : String;
var
  foo : String;
  ndx : Integer;
  apos : Integer;
begin
  if (Length (str) > size) then
  begin
     result := 'Fehler';
     Exit;
  end;
  apos := size;
  for ndx := 1 to size do  // tmp-String füllen
  begin
    foo := foo + ' ';
  end;
  for ndx := Length(str) downto 1 do
  begin
    foo[apos] := str[ndx];
    Dec (apos);
  end;
  result := foo;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(StrRight (Edit1.text,10));
end;