AV - Wo?

hallo

Ich krieg immer ne AV, weiß net wo...

ich will ne datei auslesen die wie folgt aufgebaut ist:

Code:

			123  AbiTools

156  Musik.Suite

156  Musik.Suite

123  AbiTools

156  Musik.Suite

156  Musik.Suite

123  AbiTools

156  Musik.Suite

156  Musik.Suite

123  AbiTools

156  Musik.Suite

156  Musik.Suite

123  AbiTools

und zwar will ich die in ein record einlesen:

markieren

Delphi-Quellcode:

			type

  TProjekt = record

    ID: Integer;

    Name: String;

    Dateien: array of String;

end;

und das in der prozedur:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure LoadProjectList(Datei: TStrings; var Tree: TTreeView;

  var Prj: array of TProjekt);

var

  i: Integer;

  Root: TTreeNode;

begin

  Root := Tree.Items.AddFirst(nil, 'Projekte');

  for i := 0 to (Datei.Count - 1) do

  begin

    Prj[i].ID := StrToInt(Trim(Copy(Datei[i], 1, 5)));

    Prj[i].Name := Copy(Datei[i], 6, (Length(Datei[i]) - 5));

    Tree.Items.AddChild(Root, Prj[i].Name);

  end;

end;

die prozedur ruf ich so auf:

markieren

Delphi-Quellcode:

			ProjekteDatei := TStringList.Create;

ProjekteDatei.LoadFromFile(UGlobal.PDir + 'Einstellungen/Projekte.pof');

ULAS.LoadProjectList(ProjekteDatei, TreeViewProjekte, Projekt);

ProjekteDatei.Free;

wo ist der fehler?

AV - Wo?

AV - Wo?

Forumregeln