Abstrakter Fehler oO

[GuenterS]

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]

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]

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]

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]

Zitat von Matze:

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]

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]

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 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]

In dem Fall sollte man das auch, das ist korrekt.