Fehlermeldung: Listenindex überschreitet das Maximum(1)

[Helmi]

Zitat von sx2008:

Delphi-Quellcode:

// 1. Zeile eine Stringliste auslesen und Eintrag in Liste löschen
function GetFirstLine(list:TStrings):string;
begin
  if list.Count > 0 then
  begin
    result := list[0];
    list.Delete(0);
  end
  else
    result := 0;
end;

Nur der Richtigkeit halber, bei result := 0; würdest einen Fehler erhalten, weil 0 ein Integer ist, Result aber ein String.
Also Result := '0';