danke lemmy hat geklappt
@bummi: Man muss wissen wie der String aufgebaut ist, damit man ihn zerlegen kann. Darum die ganzen angaben, aber es geht auch einfacher:
z für Zeichen
20z 20z 3z 1z 1z 1z 1z 1z 20z 20z 3z 1z 1z 1z 1z 1z usw. Leerzeichen steht für irgendein Symbol dass da halt ist.
Delphi-Quellcode:
begin
if OpenDialog1.Execute then
begin
assignfile(datei,OpenDialog1.FileName);
Reset(Datei);
While not eof(Datei) do
begin
Read(Datei,Schueler);
schueler.klasse:=klasse;
schueler.name:=name;
schueler.vorname:=vname;
schueler.Note1:=note1;
schueler.Note2:=note2;
schueler.Note3:=note3;
schueler.Note4:=note4;
schueler.Note5:=note5;
with Schueler do Schueler_anlegen(Klasse,Name,Vname,note1,note2,note3,note4,note5);
end;
closefile(datei);
end;
end;
Die einzelnen Eigenschaften von Schueler kann ich ja nicht einfach abfragen. Wie komme ich nun vom string zu diesen?
btw: Speicherproblem mitm überschreiben mit Leerzeicehn gelöst...
mfg nextname