AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi try...except funktioniert in RAD2007 nicht
Thema durchsuchen
Ansicht
Themen-Optionen

try...except funktioniert in RAD2007 nicht

Ein Thema von EccoBravo · begonnen am 4. Mär 2008 · letzter Beitrag vom 4. Mär 2008
 
Benutzerbild von EccoBravo
EccoBravo

Registriert seit: 19. Okt 2004
Ort: Neuruppin
524 Beiträge
 
Delphi 2007 Architect
 
#6

Re: try...except funktioniert in RAD2007 nicht

  Alt 4. Mär 2008, 21:27
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.
Wahre Aussage :=
Katzen, die bellen sind keine Kaninchen.

Der Kreisverkehr ist eine spezielle Form der Einbahnstraße
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz