Hallo allerseits,
natürlich ist try...except keine Schleife (müde, spät...)
interessant,
das Problem tritt nur innerhalb der
IDE auf,
wenn ich die Exe so starte, geht es
Der Code ist angehangen
Config_Laden dient nur dazu, daß alle meine Programme das "richtige" und "falsche" Komma laden (wegen verschiedner Ländereinstellungen)
(In der EB_Config sind auch alle anderen allgemeinen Einstellungen meiner Progamme enthalten, sozusage eine gemeinsame Schnittstelle von allen eigenen Progammen)
Delphi-Quellcode:
uses ...SysUtils...;
...
procedure Config_Laden;
var
FConfig: TIniFile;
begin
FConfig := TIniFile.Create('C:\EB_SETUP\EB_Config.dat');
Komma := FConfig.ReadString('Komma', 'Komma', EmptyStr);
nichtKomma := FConfig.ReadString('Komma', 'nichtKomma', EmptyStr);
FConfig.Free;
end;
...
// hier der ProblemCode
function StrToFloaten(s: string): single;
var
p, l: integer;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
if s <> '' then
begin
try
StrToFloaten := StrToFloat(s);
except
begin
p := pos(nichtKomma, s);
l := Length(s);
if p <> 0 then
s := copy(s, 1, p - 1) + Komma + copy(s, p + 1, l - p);
StrToFloaten := StrToFloat(s);
end;
end;
end
else
StrToFloaten := 0;
end;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
In den Projectoptions/Compilereinstellungen habe ich nichts gefunden
Ich danke für Hilfe
E. B.