FloatToStrF ??

[Hansa]

Zitat von Alexander:

Danach formatiert er doch genau richtig

Was heißt schon richtig ? Das einzige was richtig ist, das sind die 2 Nachkommastellen. Und die Zahlen werden letztenendes im Kraut und Rüben - Format dargestellt.

Ihr meint also, es gibt in Delphi nicht mal Ersatz für folgendes :

writeln (r:8:2); Nun denn, dann nehme ich vorerst eben meine eigenen Funktionen. Falls die noch jemand braucht :

Delphi-Quellcode:

function blanks (anzahl : byte) : string;
var i : integer;
    b : string;
begin
  b := '';
  for i := 1 to anzahl do
    b := b + ' ';
  blanks := b;
end;

function rb (st : string;feldweite : byte) : string;
begin
  st := Trim (st);   // eventuelle Blanks am "Rand" weglöschen
  rb := blanks (feldweite - length (st)) + st;
end;

function lb (st : string;feldweite : byte) : string;
begin
  st := Trim (st);   // eventuelle Blanks am "Rand" weglöschen
  lb := st + blanks (feldweite - length (st));
end;