bedingungen | PlanetCoding

neonator

hey kann mir mal jemand erklären wie das in delphi mit den schlaufen und so funktioniert?

also wie mache ich z.B. eine if-schlaufe??

beispiel:
ich habe ein TEdit (Edit1) mit dem inhalt 3
dann habe ich ein button (Button1).. wenn man drauf klickt, sollte es überprüfen, ob der wert von Edit1 3 ist. wenn ja, sollte es "ja" reinschreiben, sonst "nein"...
klar, ich weiss dass es ja reinschreiben muss, aber es geht ja ums prinzip...

bin auch auf die delphi-hilfe gegange... so wie ich das dort verstanden habe, müsste man das so machen:

code:
1: 2: 3: 4: 5: 6: 7: 8: 9: 10:	procedure TForm1.Button1Click(Sender: TObject); begin { $IF Edit1.Text = 0 } Edit1.Text = 'ja'; { $ELSE } Edit1.Text = 'nein'; { $ENDIF } end; end.

das einzige problem: so ^ funktioniert es nicht unglücklich

thx für die hilfe

jones

chrigu99

hihihi neo stürzt du dich voll in delphi??? wird dies net ein bisschen viel??? hihihi

greez

c
h
r
i
s
/
a
c
k
i

chrigu99

VERSUCH MAL:

program Paritaet;
{$APPTYPE CONSOLE}
var
z: integer;
begin
WriteLn('Bitte geben Sie eine Zahl ein');
Readln(z);
if z MOD 2 = 0 then begin
WriteLn(z,' ist eine gerade Zahl');
end else begin
WriteLn(z,' ist eine ungerade Zahl');
end;

GREEZ ACKI

neonator

^^ gibbet bei mir nur fehlermeldung unglücklich

kann mir niemand schnell die schreiben, wie man in dem fall die schleife machen müsste?

wäre echt nett!

Flamesword

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = '3' then
    begin
       Edit1.Text := 'ja';
    end
  else
    begin
       Edit1.Text := 'nein';
    end;
  end;

end.

Was hast denn du für ne scheiss Delphi-Hilfe? Das is ja völlig falsch.

neonator

danke!

^^ dachte ich auch, als es nicht ging Augenzwinkern

hab das gemacht: Help -> Delphi Help -> hab "if" eingegeben und das erste angeschaut...

naja...

so gehts wohl besser Augenzwinkern

danke...

neonator

hab mal probiert ein rechner zu schreiben, aber das wollte nicht...
beim minus rechnen hat er immer -1*(-1) oder sowas...

vielleicht kann mir jemand helfen?? *hoff*

hier mal zum runterladen
das exe:
http://www.flecom.ch/neonator/delphi/rechner/c4lcul4t0r.zip

das delphi projekt:
http://www.flecom.ch/neonator/delphi/rec...4t0r_delphi.zip

so und hier noch der source aus der Unit1.pas:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    f_data: TEdit;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    btn_clr: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn_plus: TButton;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn0: TButton;
    btn_gleich: TButton;
    btn_minus: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn0Click(Sender: TObject);
    procedure btn_clrClick(Sender: TObject);
    procedure btn_plusClick(Sender: TObject);
    procedure btn_minusClick(Sender: TObject);
    procedure btn_gleichClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  v_cacheplus, v_cacheminus : integer;
  leer, v_cachelcd : string;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '1';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '2';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '3';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '4';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '5';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '6';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '7';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '8';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '9';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn0Click(Sender: TObject);
begin
  v_cachelcd := v_cachelcd + '0';
  f_data.Text := v_cachelcd;
end;

procedure TForm1.btn_clrClick(Sender: TObject);
begin
  v_cachelcd := leer;
  f_data.Text := leer;
  v_cacheplus := 0;
  v_cacheminus := 0;
end;

procedure TForm1.btn_plusClick(Sender: TObject);
begin
  v_cacheplus := StrToInt(f_data.Text);
  v_cachelcd := leer;
end;

procedure TForm1.btn_minusClick(Sender: TObject);
begin
  v_cacheminus := StrToInt(f_data.Text);
  v_cachelcd := leer;
end;

procedure TForm1.btn_gleichClick(Sender: TObject);
var
  v_result: integer;
begin
  v_result := StrToInt(v_cachelcd) - v_cacheminus + v_cacheplus;
  v_cacheplus := 0;
  v_cacheminus := 0;
  v_cachelcd := IntToStr(v_result);
  f_data.Text := v_cachelcd; 
end;

end.

hoffe jemand nimmt sich die zeit und schaut die sache mal an... ich denke, ich hab irgendwas beim rechnen falsch gemacht, wahrscheinlich beim minus rechnen...
aber ich versteh den fehler nicht unglücklich

jones