Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
24. Jul 2007
Üblicherweise sehen Projekte mit mehr als 1 Button und 2 Edits bei mir so aus
procedure TFormMain.btnCalcClick(Sender: TObject);
var
sie:Integer;
begin
editPhonetyp.Visible:=false;
btnReport.Visible:=false;
memo1.clear;
sie:=strtoint(Copy(editIMEI.Text,1,2));
if ed = false then begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
24. Jul 2007
mag sein aber ich bin am lernen und ich glaub kaum das dei Code am Anfang viel anders aussah
davon abgesehen bei einen Testprogramm bei den ich nur mahl wissen wollte ob und wie ich das hinbekomme reicht mir "Button1Click" zu. Nennt sich Aufwand und Nutzen
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
24. Jul 2007
Ja hatte ich untedessen auch bemerkt mit der 216
Das war der Fehlerprocedure TForm7.Button1Click(Sender: TObject);
var
x,y:integer;
i,l:Integer;
begin
i:=0;
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
23. Jul 2007
Die Maximale Zahl kann nur 9*7 sein also 63
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
23. Jul 2007
weiß der geier meine stimmt die(na gut muss ja net gültig sein) auch vieleicht findet ja jemand den Fehler
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
23. Jul 2007
So fertig kann bitte jemand testen Obs Klappt für meinen Perso rechnet er jetzt richtig das Beispiel vom Link nicht?
procedure TForm7.Button1Click(Sender: TObject);
var
x,y:integer;
i,l:Integer;
begin
i:=0;
l:=0;
for x := 1 to Length(MaskEdit1.Text)do begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
23. Jul 2007
Danke immer diese kleinigkeiten
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
23. Jul 2007
Ers soll I von Stelle1. nehmen und mit Stelle2. addieren usw. und das für alle stellen
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
23. Jul 2007
procedure TForm7.Button1Click(Sender: TObject);
var
x,y:integer;
i:Integer;
begin
i:=0;
for x := 1 to Length(Edit1.Text) do begin
y:=chartoint(Edit1.Text);
case x of
1:i:=y*7;