zusammenfalten · markieren

Delphi-Quellcode:

function GetId(f: string; i: integer): string;
  var
    temp: string;
    j: integer;
    sl: TStrings;
begin
  temp := '';
  sl := TStrings.Create;
  sl.LoadFromFile(f);
  for j := 0 to 4 do begin
    temp := temp + sl[0][(i * 6) + j];
  end;
  result := temp;
end;

ShowMessage(GetId('ids.txt', 0)); Warum kommt da n Abstrakter Fehler und was zur Hölle is des???

Das kommt immer dann, wenn Du von akstrakte, also nicht implementierte Methoden aufrufst. In Deinem Beispiel passiert dies, weil Du eine Instance von TStrings erstellt, welche viele abstrakte Methoden besitzt. Besser wäre hier TStringList gewesen, was diesen Fehler beheben dürfte.


Die erzeugte StringList solltest Du aber auch wieder freigeben, am ende der Procedure, sonst erzeugst Du ein schones Memory leak.

Das kommt weil TStrings abstrakt ist, ersetze
sl := TStrings.Create; mit sl := TStringList.Create;

Mit der Freigabe und einem Try...finally-Block könnte es dann so aussehen:

zusammenfalten · markieren

Delphi-Quellcode:

function GetId(f: string; i: integer): string;
  var
    j: integer;
    sl: TStrings;
begin
  result := '';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(f);
    for j := 0 to 4 do
      result := result + sl[0][(i * 6) + j];
  finally
    FreeAndNil(sl);
  end;
end;

Übrigens: Die zusätzliche String-Variable kann man sich auch sparen, wenn man gleich result verwendet

Zitat von Martin K:

Übrigens: Die zusätzliche String-Variable kann man sich auch sparen, wenn man gleich result verwendet

Ich habe irgendwo einmal gelesen, dass man der Result-Variablen möglichst nur ein einziges Mal etwas zuweisen sollte und zwar am Ende der Funktion. In einer Schleife sollte man das nicht machen. Aber wieso, habe ich vergessen.

Ich würde also die ursprüngliche Möglichkeit bevorzugen.

Zitat von Martin K:

Mit der Freigabe und einem Try...finally-Block könnte es dann so aussehen:

zusammenfalten · markieren

Delphi-Quellcode:

function GetId(f: string; i: integer): string;
  var
    j: integer;
    sl: TStrings;
begin
  result := '';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(f);
    for j := 0 to 4 do
      result := result + sl[0][(i * 6) + j];
  finally
    FreeAndNil(sl);
  end;
end;

Übrigens: Die zusätzliche String-Variable kann man sich auch sparen, wenn man gleich result verwendet

Man kann sich ausserdem noch die Variable "j" sparen.

zusammenfalten · markieren

Delphi-Quellcode:

function GetId(f: string; i: integer): string;
var
    sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(f);
    result := sl[0][(i*6)] + sl[0][(i*6)+1] + sl[0][(i*6)+2] + sl[0][(i*6)+3] + sl[0][(i*6)+4];
  finally
    FreeAndNil(sl);
  end;
end;

Zitat von Matze:

Zitat von Martin K:

Übrigens: Die zusätzliche String-Variable kann man sich auch sparen, wenn man gleich result verwendet

Ich habe irgendwo einmal gelesen, dass man der Result-Variablen möglichst nur ein einziges Mal etwas zuweisen sollte und zwar am Ende der Funktion. In einer Schleife sollte man das nicht machen. Aber wieso, habe ich vergessen.

Ich würde also die ursprüngliche Möglichkeit bevorzugen.

Hm, ich setze Result auch gerne mal am Anfang, für den Fall dass was schiefgeht auf einen eindeutigen Wert. Wenn Du wieder weißt wo das steht, würds mich intressieren, das auch zu lesen. Bzw. welchen Grund dieses hat.

Die result Varibale sollte man nur am Schluß setzen.
Ich galube in der heutigen Zeit sollte man die Lesbarkeit vor das Sparen von ein paar Bytes setzen.

Zitat von Matze:

Ich habe irgendwo einmal gelesen, dass man der Result-Variablen möglichst nur ein einziges Mal etwas zuweisen sollte und zwar am Ende der Funktion. In einer Schleife sollte man das nicht machen. Aber wieso, habe ich vergessen.

Echt?
Das wäre mir neu.

Aber Result am Anfang auf einen leeren String zu setzen und dann nachher auf die gewünschten Werte, macht Sinn - sonst könnte das Ergebnis bei einem Fehlschlag undefiniert sein.

Zitat von GuenterS:

Man kann sich ausserdem noch die Variable "j" sparen.

Wenn wir jetzt noch die Parameter als Konstanten festlegen ist es Perfekt, außerdem kann man es wohl noch weiter vereinfachen:

zusammenfalten · markieren

Delphi-Quellcode:

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

Was haltet ihr davon?

Delphi legt das Funktionsergebnis in dem Register EAX ab. Wenn ich nun der interne Result Variable etwas zuweise am Anfang wrd das un EAX abgelegt. Optimiert der Compiler nun den Code, hat er ein Register weniger, dass er benutzen kann bzw. erst wieder frei machen muss und zum Schluss wieder belegt. Weise ich Result am Schluss zu, hat der Compiler das EAX Register noch für Optimierungen frei.

Zitat von Martin K:

Aber Result am Anfang auf einen leeren String zu setzen und dann nachher auf die gewünschten Werte, macht Sinn - sonst könnte das Ergebnis bei einem Fehlschlag undefiniert sein.

Man kan auch anders sicherstellen, dass der Rückgabewert nicht undefiniert ist:

markieren

Delphi-Quellcode:

var
  s: String;
begin
  s := '';
  // mach was
  Result := s;
end;

@mkinzler:
Hast auch wieder recht, irgendwie würds mich aber schon intressieren was so in der Datei stehen mag, dass man sie komplett einlesen muss, um schlussendlich nur die erste Zeile zu verwenden. Desweiteren fehlt da noch jede Prüfung ob diese erste Zeile überhaupt lang genug ist.

@luckie:
Danke für die Information, wieder was gelernt.