Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Abstrakter Fehler oO (https://www.delphipraxis.net/77326-abstrakter-fehler-oo.html)

GuenterS 17. Sep 2006 23:54

Re: Abstrakter Fehler oO
 
Zitat:

Zitat von Luckie
Delphi-Quellcode:
function GetId(const f: string; const i: integer): string;
var temp: String; sl: TStrings;
begin
  temp := '';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(f);
    temp := Copy(sl[0], i*6, 5);
  finally
    result := temp;
    FreeAndNil(sl);
  end;
end;
So sollte es gehen.

Genau so ist es nicht mehr garantiert *g* Wenn die Stringlist warum auch immer nicht erzeugt ist, befindet man sich noch nicht im gesicherten Bereich, und kommt dann auch nicht in dieses finally. (Zugegeben, habe ich das allerdings noch nicht erlebt, dass eine Stringlist sich nicht erzeugen lies)

Martin K 17. Sep 2006 23:55

Re: Abstrakter Fehler oO
 
Zitat:

Zitat von Matze
Wann soll das fehlschlagen? Dann müsstest du ja vor jeder Zuweisung ein "try" setzen. ;)

Es könnte nicht mehr genügend Speicher verfügbar sein, aber ist ja jetzt auch egal, durch die ganzen Edits ergibt das keinen Sinn mehr...

Aber ja, man könnte den Code von mir aus auch so machen, wie Luckie geschrieben hat.

SirThornberry 17. Sep 2006 23:55

Re: Abstrakter Fehler oO
 
Zitat:

Zitat von Luckie
Delphi-Quellcode:
function GetId(const f: string; const i: integer): string;
var temp: String; sl: TStrings;
begin
  temp := '';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(f);
    temp := Copy(sl[0], i*6, 5);
  finally
    result := temp;
    FreeAndNil(sl);
  end;
end;
So sollte es gehen.

warum steckt man die zuweisung von "result" mit ins finally. bzw. wozu überhaupt "finally" alles was immer ausgefüht werden soll kann man doch auch hinter den try-Block setzen und stattdessen ein try-Except block machen das nur bei einer Exception eine sonderbehandlung statt findet
Delphi-Quellcode:
function GetId(const f: string; const i: integer): string;
var temp: String; sl: TStrings;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(f);
    temp := Copy(sl[0], i*6, 5);
  except
    temp := '';
  end;
  FreeAndNil(sl);
  result := temp;
end;
die variante mit finally kommt ja dieser gleich:
Delphi-Quellcode:
function GetId(const f: string; const i: integer): string;
var temp: String; sl: TStrings;
begin
  temp := '';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(f);
    temp := Copy(sl[0], i*6, 5);
  except
  end;
  result := temp;
  FreeAndNil(sl);
end;

Matze 17. Sep 2006 23:57

Re: Abstrakter Fehler oO
 
Zitat:

Zitat von GuenterS
Genau so ist es nicht mehr garantiert *g* Wenn die Stringlist warum auch immer nicht erzeugt ist, befindet man sich noch nicht im gesicherten Bereich, und kommt dann auch nicht in dieses finally.

Das finally kommt genrell, nur würde es dann krachen. Aber ich habe noch nie gehört, dass eine StringList nicht erstellt werden würde.

GuenterS 18. Sep 2006 00:03

Re: Abstrakter Fehler oO
 
Zitat:

Zitat von Matze
Zitat:

Zitat von GuenterS
Genau so ist es nicht mehr garantiert *g* Wenn die Stringlist warum auch immer nicht erzeugt ist, befindet man sich noch nicht im gesicherten Bereich, und kommt dann auch nicht in dieses finally.

Das finally kommt genrell, nur würde es dann krachen. Aber ich habe noch nie gehört, dass eine StringList nicht erstellt werden würde.

Das stimmt so aber nicht.

Delphi-Quellcode:
procedure Test;
var
  i: integer;
  lList: TList;
begin
  i := 0;
  lList.Add(@i); // <-- Verhängnisvolle Zeile
  try
      ShowMessage('TEST');
  finally
      ShowMessage('FINALLY');
  end;
end;

Habe das gerade eben mal schnell mit TurboDelphi probiert, er kommt nicht zum ShowMessage('FINALLY');

Würde ich die verhängnissvolle Zeile innerhalb des Try Blockes machen schon.

Matze 18. Sep 2006 00:05

Re: Abstrakter Fehler oO
 
Ach so meinst du das. Stimmt, das hatte ich gar nicht bedacht. Aber in jedem Mustercode wird es ohne doppeltes "try" gelöst. Also kann da eigentlich auch nichts passieren.

Martin K 18. Sep 2006 00:10

Re: Abstrakter Fehler oO
 
Natürlich kommt er nur in's finally wenn es vor dem try nicht schon gekracht hat.
D.h. wenn in unserem obigen Beispiel das Erzeugen der StringList fehlschlägt (was eigentlich nicht vorkommen sollte), wird der finally-Teil auch nicht ausgeführt.

Zitat:

Zitat von Matze
Ach so meinst du das. Stimmt, das hatte ich gar nicht bedacht. Aber in jedem Mustercode wird es ohne doppeltes "try" gelöst. Also kann da eigentlich auch nichts passieren.

Also ich arbeite oft mit verschachtelten try..finally-Blöcken, z.B.:
Delphi-Quellcode:
  sl := TStringList.Create;
  try
    //do something
    if sl[0] = 'lad mir ne neue StringList' then
    begin
      sl2 := TStringList.Create;
      try
        // do something
      finally
        FreeAndNil(sl2);
      end;
    end;
  finally
    FreeAndNil(sl);
  end;

Matze 18. Sep 2006 00:13

Re: Abstrakter Fehler oO
 
In dem Fall sollte man das auch, das ist korrekt. ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.
Seite 3 von 3     123   

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 by Thomas Breitkreuz