Abstrakter Fehler oO

[mkinzler]

Das Initialisieren von Result ist nicht nötig. Ich würde das result := ''; besser ins finally verschieben.

[Luckie]

Zitat von mkinzler:

Das Initialisieren von Result ist nicht nötig. Ich würde das result := ''; besser ins finally verschieben.

Dann kann ich mir den restlichen Code aber sparen, da der finally-Block immer ausgeführt wird. Result wäre somit immer der Leerstring. Und da sist wohl nicht Sinn und Zweck der Funktion.

[mkinzler]

Zitat von Luckie:

Zitat von mkinzler:

Das Initialisieren von Result ist nicht nötig. Ich würde das result := ''; besser ins finally verschieben.

Dann kann ich mir den restlichen Code aber sparen, da der finally-Block immer ausgeführt wird. Result wäre somit immer der Leerstring. Und da sist wohl nicht Sinn und Zweck der Funktion.

Stimmt Es ist spät ...

[Martin K]

Ihr meint wohl sowas:

Delphi-Quellcode:

function GetId(const f: string; const i: integer): string; 
var temp: String; sl: TStrings; 
begin 
  temp := ''; 
  try
    sl := TStringList.Create; 
    try 
      sl.LoadFromFile(f); 
      temp := Copy(sl[0], i*6, 5); 
    finally 
      FreeAndNil(sl); 
    end; 
  finally
    result := temp;
  end;
end;

[GuenterS]

[edit]Ja, müßte es treffen[/edit]

[edit2]das ist mir auch eingefallen, aber konnte meinen Beitrag nicht komplett entfernen [/edit2]

[Martin K]

[edit]Herrje, diese ganzen Edits...[/edit]

[SirThornberry]

das man "result" erst am ende bzw. vor verlassen der Funktion zuweist kommt wohl von anderen Programmiersprachen wie C, C++, PHP etc. wo durch das zuweisen des Rückgabewertes die Funktion gleichzeitig verlassen wird.

[mkinzler]

Zitat:

Und wenn das Erzeugen der StringList fehlschlägt?

Dann wird ein Leerstring zurückgeliefert.

[Matze]

Zitat von Martin K:

Und wenn das Erzeugen der StringList fehlschlägt?

Wann soll das fehlschlagen? Dann müsstest du ja vor jeder Zuweisung ein "try" setzen.

[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.