AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen FreePascal Programm hängt sich beim Start auf
Thema durchsuchen
Ansicht
Themen-Optionen

Programm hängt sich beim Start auf

Ein Thema von TForm1 · begonnen am 2. Mai 2014 · letzter Beitrag vom 3. Mai 2014
 
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.587 Beiträge
 
Delphi 12 Athens
 
#16

AW: Programm hängt sich beim Start auf

  Alt 3. Mai 2014, 18:25
Ohne das Seek (in der Schleife) wäre es nicht hängen geblieben.


Zu dem Try-Except:
- grundsätzlich sollte der Code dazwischen keine Exceptions auslösen (das alles sind wohl Fehler, bei denen das Programm sowieso abraucht und man sich die Fehlerbehandlung hier sparen könnte), außer
- - die Datei ist garnicht offen, aber dann hätte es wohl schon beim Öffnen geknallt
- - der Datenträger ist kaputt (defekter Sektor), aber sowas sollte besser eh nie passieren
- - oder die Datei ist viel zu groß und es komm ein OutOfMemory
- aber wenn eine Exception auftritt, dann ist es nicht unbedingt gut, wenn man die Exception verwirft und durch nichtsagenden Code ersetzt.

Delphi-Quellcode:
except
  on E: Exception do
    ShowMessage('Problem beim Laden der Datei "' + Dateiname + '".' + sLineBreak + E.Message);
end;
Und bei einer Exception ist Rückgabewert nicht definiert/initialisiert.

Wobei man die Variable DatenArray weglassen und direkt Result nutzen könnte, aber dennoch sollte man das Result entweder vor dem Try oder im Except auf einen definierten Wert setzen. (wenn du direkt Result verwendest, dann einfach am Anfang ein Result=nil; )

Da hier das Result additiv/aufbauend verwaltet wird, muß es sowieso immer initialisiert werden, auch wenn keine Exception auftritt.

Delphi-Quellcode:
function Text: string;
begin
  Result := Result + 'a';
end;

var
  i: Integer;
  S: string;
begin
  for i := 1 to 5 do
    S := S + Test;
  ShowMessage(S);
end;
Was gibt hier die MessageBox aus und was würdest eigentlich du für einen Text erwarten?


Delphi-Referenz durchsuchensLinbBreak: Eine Beschreibung, falls Lazaus sowas nicht kennt.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu ( 3. Mai 2014 um 18:27 Uhr)
  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 23:51 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