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;