Hallo,
ich programmiere gerade einen Vokabeltrainer.
In einem Edit-Feld steht der Pfad des Textdokumentes.
Oder wenn man auf den Button1 klickt, dann wird der OpenDialog ausgewählt.
In dem Textdokument stehen die vokabeln: deutsch-französisch!!!
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Filter = '.txt' then
begin
label25.Caption := '1';
end;
if label25.caption = '0' then
begin
showmessage ('Fehler');
end;
form1.Height := 338;
vokabeln.LoadFromFile(edit1.Text);
weiter := tstringlist.Create;
weiter.loadfromfile ('neu.txt');
if label3.Caption = '1' then
begin
label2.Visible := false;
button1.Visible := false;
edit2.Visible := false;
if label5.Caption = 'Schlecht' then
label4.Caption := vokabeln [0];
label4.Visible := true;
edit1.Visible := true;
button3.Visible := true;
end;
if label3.Caption = '0' then
application.MessageBox('Du hast keine Datei ausgewählt!','Fehler',0+0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
edit2.Text := opendialog1.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if edit2.Text = vokabeln [21] then label5.Caption := 'Gut' else label5.Caption := 'Schlecht';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
weiter [1] := label5.Caption;
weiter.SaveToFile(shellcombobox1.root);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Height := 300;
end;
end.
Ich hoffe ihr könnt mir helfen,
Jan