Delphi-Quellcode:
function TForm1.FormatSign(Descr: String; n: Integer; Value: Double): String;
var
Sgn: Integer;
Sp: String;
fmt: String;
begin
Sgn := sign(Value);
if (Sgn = 1) Or (Sgn = 0) then
Sp := '+'
else
Sp := '-';
fmt := '0.' + StringOfChar('0', n);
result := Descr + Sp + Format('%7.4f', [Abs(Value)]);
end;
Zur zeit wird mein String so Formatiert!
0,1234
Ich möchte ihn aber so formatieren das die länge des String variable, abhängig von fmt ist.
Wenn also fmt = 8 ist soll der String so ausgegeben werden.
0,12345678
Im Moment ist er fest eigestellt mit 4f
gruss