Datei in Tabelle laden

[schlecki]

versuch mal folgendes (siehe Kommentar):

Delphi-Quellcode:

function TForm3.Simikolons(Zeile:string):tintarr;
var i:integer;
begin
     SetLength(Result,1);
     for i:=1 to Length(Zeile) do
     begin
          if Zeile[i]=';' then
          begin
              SetLength(Result,Length(Result)+1);
              Result[i-1]:=i; // hier liegt der Fehler. Zuweisung sollte eher an
                              // Result[Length(Result)] gehen.
          end;
     end;
end;