LAteinprogramm

Niemand2007 · Hält's aus hier Beiträge: 2

Ich brauch hilfe bei einem lateinprogramm das ich selber Programmiere(bin Anfänger). Also bei mir ist edit fenster und ein button und ein label. Ich will das nur wenn das Wort "venire" in edit eingegeben wird im label steht Korrekt. Und wenn das Wort anders heißt das im label steht Falsch!

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

Hallo

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'Venire' then
begin
Label1.Caption:='Falsch';
end
else Label1.Caption:='Korrekt';

end;

Veni,Vedi,Veci :wink:

Gruß

_________________
[b]Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.[b]

Niemand2007 · Hält's aus hier Beiträge: 2

vielen vielen danke!!!! Super echt perektes Forum!!! 1A

und noch ne frage ganz nebenbei!!! Ich will da so einen button machen "Next" der soll das alles wieder auf neu zurücksetzen bloß ein anderes wort!

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure NextBtnclick(Sender: tobject);
begin
  Edit1.text := '';
  Label1.Caption := '';
end;

danach checkst du einfach auf ein anderes Wort, wie der Quelltext unten

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

Na..nen bischen drüber nachdenken und dann

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);   
begin   
Edit1.text:='';
Label1.Caption:='';  
end;

Edit: oops zu langsam

_________________
[b]Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.[b]

Ehemaliges Mitglied Erhaltene Danke: 1

hier mal ein beispiel was ich eben mal gemacht habe...

Einloggen, um Attachments anzusehen!

Ehemaliges Mitglied Erhaltene Danke: 1

habs nochmal aktualisiert. Mit fehlerauswertung jetzt...

Einloggen, um Attachments anzusehen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme