ThousandSeparator - nur ein Mythos?

[Uwe Raabe]

Zitat von Kurt Wallander:

Hallo Uwe,
vielen Dank für deine Anregungen. Habe sie sogleich in mein Programm eingebaut.

Ich war das nicht...

[Kurt Wallander]

Danke mmw, es klappt! Wieder was dazugelernt.

[Kurt Wallander]

Irgendeine Teufelei steckt doch noch dahinter. Kaum hatte ich verkündet, daß der ThousandSeparator im Beispielprogramm funktioniert, habe ich das in meinen eigentlichen Programm umgesetzt und folgende Überrachung erlebt:

Code:

procedure TForm1.Plop(Sender: TObject);
var
   dummy             : Extended;
   AFormatSettings   : TFormatSettings;
begin
   if Tageszahl=JuDay then
   begin
      Label24.Caption:='1. 1. 4713 v. Chr. (jul. Kal.)   ';
      JD:=To_JD(Sekunde,Minute,Stunde,Tag,Monat,Jahr,KalTyp);
      AFormatSettings.Create;
      try
         AFormatSettings.ThousandSeparator:=' ';
         Edit1.Text:=[COLOR="red"][U]Format[[/U]/COLOR]('JD = %.6n',[JD, AFormatSettings]);
      except
         on E:Exception do
         begin
            ShowMessage(E.ClassName+ ': '+ E.Message);
         end;
      end;
   end
   else if Tageszahl=MJuDay then
   begin
      Dummy:=JD-0.5;

JD ist die Extended-Variable und hat einen Wert von mehr als 2400000. Die Prozedur Plop wird vom Timer im 10-Sekunden-Takt aufgerufen.
Der Compiler hat was gegen den Formatbefehl: es existiere keine overload-Variante, die mit den angegebenen Parametern aufgerufen werden könne. Auskommentieren von "AFormatSettings" besänftigt den Compiler, aber ich habe dann natürlich wider die Punkte als 1000erTrennzeichen. (Für Purititianer: die angedeutete Abfrage mit den geschachtelten "else if" ließe sich mit einer case-Anweisung sicherlich eleganter lösen.)
Wo liegt der Hase im Pfeffer?
Kurt

[TKanne]

Moin,

AFormatSettings.create;
ist falsch, es muss heißen:

AFormatSettings := TFormatSettings.Create;

Gruß

[mmw]

Hallo,

das Edit1 müsste so sein


Edit1.Text:=[COLOR="red"][U]Format[[/U]/COLOR]('JD = %6.n',[JD], AFormatSettings);

wegen der lesbarkeit

 Edit1.Text:=Format ('JD = %6.n',[JD], AFormatSettings);

Gruß

[Kurt Wallander]

Hallo TKanne,
es hat leider keine Auswirkung.

[Uwe Raabe]

Wie schon erwähnt, muss das AFormatSettings hinter die eckige Klammer und nicht darein.

[blawen]

Zitat von Kurt Wallander:

...Programm umgesetzt und folgende Überraschung erlebt..

Der QC ist hoffentlich nicht Teufelei, sondern Logik, die noch fehlerhaft ist.

Was wird hier für ein Edit verwendet, welches so formatiert werden kann?

 Edit1.Text:=[COLOR="red"][U]Format[[/U]/COLOR]('JD = %.6n',[JD, AFormatSettings]);

[Uwe Raabe]

Zitat von blawen:

Was wird hier für ein Edit verwendet, welches so formatiert werden kann?

 Edit1.Text:=[COLOR="red"][U]Format[[/U]/COLOR]('JD = %.6n',[JD, AFormatSettings]);

Das ist offenbar ein Versuch, die Foren-interne Source-Formatierung mal so eben dynamisch zu erweitern.

[Kurt Wallander]

Hallo Freunde,
ich hatte Fett auf der Brille und habe den AFormatSettings-Parameter in die eckige Klammer gesetzt und damit den Format-Fehler provoziert.
Der komplizierte Ausdruck für Edit1.Text war ein Versuch dafür, das das "Format" rot und unterstrichen hier im Forum dargestellt wird. Aber Forum macht das nicht. Im Programmcode ist davon nichts enthalten.
Vielen Dank, das Thema kann als erledigt betrachtet werden.
Kurt