Nach längerer Programmierpause habe ich mal an dem Programm weitergearbeitet.
Nun habe ich leider ein weiteres Problem... ich bekomme diese Fehlermeldung:
Code: Alles auswählen
Can't take the address of constant expression
Code: Alles auswählen
procedure TParser.parseLoadData(mitgliedsListe : TListVerwaltung ; datalist : TStringList);
var
u,i:integer;
mitglied : TMitglied;
datas : array of string;
begin
SetLength(datas,7);
i:=0;
while not(datalist[i] = 'null') do
begin
for u:=1 to 7 do
begin
datas[u] := copy(datalist.Strings[i],1,pos(datalist.Strings[i],'#'));
delete(datalist.Strings[i],1,(pos(pos(datalist.Strings[i],'#'),'#')));
end;
mitglied.Create;
mitglied.setMtgNr(StrToInt(datas[1]));
mitglied.setName(datas[2]);
mitglied.setVName(datas[3]);
mitglied.setDate(datas[4]);
mitglied.setAdressse(datas[5]);
mitglied.setOrt(datas[6]);
mitglied.setPlz(datas[7])
mitgliedsliste.addItemMitglied(mitglied);
mitglied.Free;
end;
i:=i+1;
end;
Ich weis, mein Code ist oft etwas unübersichtlich^^