Thema: Delphi Meherene Überprüfungen

Einzelnen Beitrag anzeigen

Deadinpac

Registriert seit: 8. Aug 2003
Ort: Oberreute
74 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: Meherene Überprüfungen

  Alt 13. Aug 2005, 18:24
Ja nur das Problem bei mir ist ich weiss nicht wie ich anfangen soll

ich hab das prog ja schon soweit fertig bis auf diesen einen Quelltext
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
 var
  PosG, NegG, NeuG, Lea, Sfb, Mem: Integer;
begin
 if DBEdit2.Text > 0 then
 PosG := 1
else
 if DBEdit2.Text < 0 then
 NegG := 1
else
 if DBEdit2.Text = 0 then
 NeuG := 1;
begin
 if DBEdit3.Text = 'Leaderthen
 Lea := 1
else
 if DBEdit3.Text = 'Schliessfachbetreuerthen
 sfb := 1
else
 if DBEdit3.Text = 'Memberthen
 mem := 1;
end;
end;
Oder so ähnlich hätte ich das vor aber mir fällt nichts richtiges ein
und deswegen frage ich euch ja

und ich fände es sehr nett von euch wenn ihr mir hilft

mfg
deadinpac
Sven Grimm
  Mit Zitat antworten Zitat