Zitat von
DeddyH:
Der 2. Ansatz ist auf jeden Fall richtiger, wenn auch umständlich gelöst. Versuch es mal so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var eins, zwei, drei, vier, fuenf: Integer;
begin
//Du solltest hier auf jeden Fall eine Fehlerbehandlung einbauen
eins:=StrToInt(edit1.text);
zwei:=StrToInt(edit2.text);
drei:=StrToInt(edit3.text);
vier:=StrToInt(edit4.Text);
fuenf:=StrToInt(edit5.Text);
//sprechende Bezeichner wären auch nicht schlecht ;)
Label2.Visible := (eins = fuenf) and (zwei = vier);
Label3.Visible := not Label2.Visible;
{
If (eins = fuenf) and (zwei = vier) then begin
Label3.Visible:=StrToBool('False');
Label2.Visible:=StrToBool('True');
end
else
begin
Label2.Visible:=StrToBool('False');
Label3.Visible:=StrToBool('True');
end;}
end;
ok also das mit funktionen einbauen seh ich mir noch an. und werd mal sehen ob ich mit deinem beispiel klar komme.
und zu dem was du veraendert hast soll alles soviel heisen wie(kommt unten drunter).... wenn ich das richtig verstanden habe.
// Fehlerbehandlung
damit meinst du einfach eine fehlerbehandlung xP, weis nicht genau was aber ich würde einfach vermuten wenn zb. edit1.text = nix ist, also einfach nur leer (ich habe bei jedem edit feld im "OnKeyPress" eine procedure eingefügt das man nur zahlen reinschreiben kann.)
bzw. zu dem hier werd ich noch sehen, da mir momentan grad dazu nichts einfällt.
ab
// sprechende Bezeichner wären.....
wird das wohl so erklärt:
Label2 ist nur visible (sichtbar) wenn eins = fuenf (der wert im editfeld) und zwei = vier ist.
und Label3 ist nur visible (sichtbar) wenn label2 nciht sichtbar ist.
hoffe das ich das dann richtig verstanden hab.
allerdings muss ich sagen momentan find ich das auf meine methode noch einfacher ^^ naja liegt wohl daran das ich das kann und noch net sooo weit gedacht hab ^^