Ich hab jetzt wirklich viele Stunden versucht @HolgerX QUellcode zu verstehen und auch die Erklärung zu Klassen im Delphi Treff gelesen.
Aber an dem Punkt an dem ich gemerkt habe, dass Klassen auch so was wie Prozeduren sind bin ich ausgestiegen.
Deswegen will ich jetzt noch mal komplett von vorne anfangen und das Ganze mit Records aufbauen. Soweit bin ich mit den Erklärungen vom Delphi Treff gekommen (sieht auch Euren Vorschlägen ähnlich). Wenn ich aber meinem Record VocabularyList.German seine Vokabeln zuordnen will meckert der Compiler: Incompatible types TStringList and string.
Delphi-Quellcode:
type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TVocabulary = record
German : TStringList;
English : TStringList;
Repetitions : Integer;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
VocabularyList: TVocabulary;
Vocabulary: TStringList;
index: Integer;
begin
Vocabulary.LoadFromFile('Vocabulary.text');
for index:= 0 to Vocabulary.Count -1 do
begin
VocabularyList.Repetitions:= 3;
VocabularyList.German:= Vocabulary.ValueFromIndex[index];
VocabularyList.English:= Vocabulary.Names[index];
end;
end;
Jemand ne Idee warum er das macht?