Kleines String Format problem

[EWeiss]

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

[Dalai]

Ich sehe in deiner Funktion zwar keinen Bezug zwischen der Variable fmt und dem Rest, aber ich vermute mal, du willst eine dynamische Anzahl Nachkommastellen, je nachdem, was der Funktion im Parameter n übergeben wird. Ich denke, das müsste so funktionieren (ohne es zu wissen oder getestet zu haben):
Format('%7.' + IntToStr(n) + 'f', [Abs(Value)]); .

MfG Dalai

[EWeiss]

Zitat:

Ich sehe in deiner Funktion zwar keinen Bezug zwischen der Variable fmt und dem Rest

fmt := 0.0000
wenn n = 4
fmt := 0.000000000
wenn n = 9

Deine Variante funktioniert .. Danke
Verstehe aber nicht warum das dann nicht geht.

Format('%7.' + fmt + 'f', [Abs(Value)]);

fmt ist doch ein string

gruss

[Sir Rufo]

Wenn man einen Blick in die Hilfe werfen würde, dann käme man auf

Delphi-Quellcode:

// variable Formatierung
Format( '%*.*f',[n+2, n, ABS( Value )] );

Ach ja, Format( '%7.0.0000f', [ABS( Value )] ); entspricht nicht ganz den Vorgaben, womit die Format-Funktion etwas anfangen kann

[himitsu]

Und natürlich auch noch FormatFloat.

Wobei FloatToStrF und Str mit den selben Parametern, wie Format('%*.*f', ...)

[Sir Rufo]

Zitat von himitsu:

Und natürlich auch noch FloatToStrF und Str, mit den selben Parametern, wie bei '%*.*f'

Du meintest sicher FormatFloat (Da stand doch eben noch etwas anderes ...)

[EWeiss]

Zitat:

Wenn man einen Blick in die Hilfe werfen würde, dann käme man auf

Ja wenn man sie denn Installiert hätte

Zitat:

Ach ja, Format( '%7.0.0000f', [ABS( Value )] ); entspricht nicht ganz den Vorgaben, womit die Delphi-Referenz durchsuchenFormat-Funktion etwas anfangen kann

ops.. ja ist logisch kann nicht gehen.

Danke für die Infos.

gruss

[himitsu]

Ohne kann man doch nicht richtig arbeiten, wie du bemerkt hast.

http://www.delphipraxis.net/dp_reference.php
Und ein richtiger Browser erkennt das und bietet dir an diese Referenz als Suchprovider im Browser einzurichten.
Es gab hier auch irgendwo etwas, womit man diese Referenz direkt ins F1 vom Delphi bekommt.