Nach Dezimalzeichen (. oder ,) des Systems fragen. Wie?

[hesubat]

Delphi akzeptiert nur den Punkt '.' als Dezimaltrennung. Ist auf einem Rechner das Komma (,) eingestellt, dann wehrt sich Delphi sehr dagegen. Kein Gleitkommawert! Wie kann ich diesen Fehler abfangen? Wie kann ich die Systemeinstellung im Programm abfragen?

[sirius]

getLocaleFormatSettings
Den Record, den du da bekommst kannst du in den entsprechenden Umwandlungsroutinen verwenden.

Ausserdem hast du in der Unit Sysutils folgende Variablen die per Default verwendet werden. Die kannst du auch ändern.

Delphi-Quellcode:

  CurrencyString: string;
  CurrencyFormat: Byte;
  NegCurrFormat: Byte;
  ThousandSeparator: Char;
  DecimalSeparator: Char;
  CurrencyDecimals: Byte;
  DateSeparator: Char;
  ShortDateFormat: string;
  LongDateFormat: string;
  TimeSeparator: Char;
  TimeAMString: string;
  TimePMString: string;
  ShortTimeFormat: string;
  LongTimeFormat: string;
  ShortMonthNames: array[1..12] of string;
  LongMonthNames: array[1..12] of string;
  ShortDayNames: array[1..7] of string;
  LongDayNames: array[1..7] of string;
  SysLocale: TSysLocale;
  TwoDigitYearCenturyWindow: Word = 50;
  ListSeparator: Char;

[DeddyH]

Oder DecimalSeparator abfragen.

[edit] Pfui, mittendrin editieren [/edit]

[taaktaak]

Moin, Moin,

und wenn diese Einstellungen geändert wurden: Sollten (theoretisch mögliche) Änderungen in Windows zur Laufzeit des Programmes diese (geänderten Werte) nicht "verstellen". Das schließt man aus mit...

 Application.UpdateFormatSettings:=false; // don't consider changes by windows Gruß Ralph

[DeddyH]

Ach, Du kennst den Effekt auch?

[himitsu]

UpdateFormatSettings...

wäre es da nicht besser auf WM_WININICHANGE zu reagieren und danach die "selbst" geänderten Werte neu zu setzen?

Weil mit UpdateFormatSettings werden doch alle Systemänderungen (im eigenem Programm) verhindert und nicht nur das Ändern der "gewünschten" Werte...

[taaktaak]

Interessanter Hinweis!!!
Ja, das ist wohl im Einzelfall die bessere Variante!
Guter Tip, Danke!
Gruß Ralph

[hesubat]

Erst einmal meinen Dank an alle, die sich meinetwegen den Kopf zerbrochen haben. Ich hatte gedacht, das es einen simplen Pascal-Befehl geben wuerde.

Delphi-Quellcode:

  if pos(',',s)>0 then neu:=copy(s,1,pos(',',s)-1)+'.'+copy(s,pos(',',s)+1,length(s))
  else
  if pos('.',s)>0 then neu:=copy(s,1,pos('.',s)-1)+'.'+copy(s,pos('.',s)+1,length(s));

Wobei 's' der eingelesene String ist, 'neu' der konvertierte String.
Gleich ob 's' einen Punkt oder ein Komma enthaelt, 'neu' enthaelt immer einen Punkt als Dezimal-Zeichen und kann nur gefahrlos in einen gueltigen Gleitkommawert gewandelt werden.
Ist zwar nicht die Methode objektorientierter Programmierung, aber wenn Delphi streikt, muss man sich anders behelfen.
Den Zugriff auf die Registry haette ich mir noch erlaubt nicht aber eine auch nur zeitweise Modifizierung der Systemeinstellungen. Wenn's der Teufel will, stuerzt der Rechner modifiziert ab. Und dann?? Kann jemand eine dll damit schreiben?? Mit einem Befehl: neu:=convert(readstring(s)); z.B.

Nochmals danke und bis spaeter

[edit=SirThornberry]Schließendes Delphi-Tag hinzugefügt - nächstes mal bitte selbst machen Mfg, SirThornberry[/edit]

[himitsu]

Zitat:

Delphi-Quellcode:

if pos(',',s)>0 then neu:=copy(s,1,pos(',',s)-1)+'.'+copy(s,pos(',',s)+1,length(s))
else
if pos('.',s)>0 then neu:=copy(s,1,pos('.',s)-1)+'.'+copy(s,pos('.',s)+1,length(s));

das ELSE + zweites IF könntest du weglassen ... einen Punkt in einen Punkt umzuwandeln , also nee

Delphi-Quellcode:

if pos(',',s)>0 then s:=copy(s,1,pos(',',s)-1)+'.'+copy(s,pos(',',s)+1,length(s));

// nur einmal das Komma suchen
i :=pos(',',s);
if i>0 then s:=copy(s,1,i-1)+'.'+copy(s,i+1,length(s));

besonders schnell

Delphi-Quellcode:

i := Pos(',', S);
If i > 0 Then S[i] := '.';

aber der gesuchte Befehl ist rfReplaceAll:
S := StringReplace(S, ',', '.', [rfReplaceAll];

und da es nur einen Punkt geben kann:
neu := StringReplace(readstring(s), ',', '.', []);

[hesubat]

Hallo himitsu,
Du hast mich herzlich zum Lachen gebracht. Natuerlich hast Du Recht, dass eine zweite Kommasuche, ein zweites IF absolut overdressed ist. Dennoch, wenn ich die rfReplaceAll-Routine betrachte und woertlich uebersetze, komme ich doch in Gefahr, auch die Tausender-Trennungen zu Punkten zu machen. Da wird Delphi dann ganz kirre. Mir gefaellt der von Dir als besonders schnell bezeichnete kurze Code.

Nochmals Danke und Tschues