Vokabeltrainer

[3_of_8]

Sonstige Fragen zu Delphi wäre ganz gut gewesen. Das machst übrigens am besten mit Records:

Delphi-Quellcode:

type
TVocabulary=record
Englisch, German: String[20]
end;

...

Delphi-Quellcode:

var vocabularies: array of TVocabulary;

procedure StoreVocabulary(Vocabulary: TVocabulary);
begin
setlength(vocabularies,length(vocabularies+1));
vocabularies[high(vocabularies)]:=Vocabulary;
end;

procedure SaveVocabulariesToFile(Filename: String);
var f: file of TVocabulary;
    I: Cardinal;
    current: TVocabulary;
begin
assignfile(f,filename);
rewrite(f);
for I:=0 to high(vocabularies) do
begin
current:=vocabularies[i];
write(f,current);
end;
closefile(f);
end;

[edit=Sharky]Delphi-Tags für den zweiten Codeblock gesetzt. Mfg, Sharky[/edit]