also hab mir eure beispiele ma angesehen und hab mir dann was eigenes ueberlegt.
habs erst damit probiert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var eins, zwei, drei, vier, fuenf: Integer;
begin
eins:=StrToInt(edit1.text);
zwei:=StrToInt(edit2.text);
drei:=StrToInt(edit3.text);
vier:=StrToInt(edit4.Text);
fuenf:=StrToInt(edit5.Text);
If eins + zwei = vier + fuenf then begin
Label3.Visible:=StrToBool('False');
Label2.Visible:=StrToBool('True');
end
else
begin
Label2.Visible:=StrToBool('False');
Label3.Visible:=StrToBool('True');
end;
end;
(also das man 5 verschiedene Zahlen schreiben kann)
so wenn ich dann auf den button clicke
ist zb. 12321 = symmetrisch und 12231 = nicht symmetrisch
allerdings hab ich dann bemerkt das es auch einen kleine fehler gib.t
da es ja den wert des 1. felds mit dem 2. zusammen rechnet und mit der summe des 4. + 5. felds vergleicht.
so würde das programm also ausgeben das, zb.
12312 = symmetrisch ist.
also bin ich nochmal dran gegangen und hab einen anderen weg gesucht,
in diesem fall is mir dann eine ganz einfache lösung eingefallen und wollte fragen ob man das so machen kann oder ob es da auch sowas wie einen "Bug" gibt.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var eins, zwei, drei, vier, fuenf: Integer;
begin
eins:=StrToInt(edit1.text);
zwei:=StrToInt(edit2.text);
drei:=StrToInt(edit3.text);
vier:=StrToInt(edit4.Text);
fuenf:=StrToInt(edit5.Text);
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;
hier wird vergliechen ob
edit1.text = edit5.text ist
und ob
edit2.text = edit4.text ist
richtig so?
(noch nebenbei, klingt jetzt wahrschienlich etwas dumm oder so, aber ich hab des immer noch nicht kapiert wie ich eine function einbauen kann, kann mir jemand helfen, bzw. zeigen oder einen link zu einem tut geben?)