Vokabeltrainer

[netscanner]

das ist doch ein bissel aufwenig und kompliziert oder?

kannst du auch mit array umgehen?


ich geb dir mal einen fertigen code...(mit ein paar kleinen Fehlern zur Übung für dich )

Delphi-Quellcode:

var
  Form1: TForm1;
  a,b,g : string;
  f,c :array [1..5] of string;
  x : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
b := 'edit2.Text';

if b = g then showmessage ('Richtig');
else showmessage ('Falsch - Richtig wäre: ' + g);

x := random (5) +1;
a :=  f[x];
g := c [x];
edit1.Text := a;

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
f[1] := 'yellow';
  f[2] := 'green';
  f[3] := 'blue';
  f[4] := 'black';
  f[5] := 'red';

c[1] := 'gelb';
  c[2] := 'grün';
  c[3] := 'blau';
  c[4] := 'schwarz';
  c[5] := 'rot';


x := random (1) +1;
a :=  f[x];
g := c [x];
edit1.Text := a;
end;
end.