| Autor |
Beitrag |
24karatboy
 
Beiträge: 110
Win XP
Delphi (Delphi Win32)
|
Verfasst: Mo 25.06.07 16:31
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:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
| unit taschenrechner;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Edit1: TEdit;
SpeedButton9: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButtonkomma: TSpeedButton;
SpeedButtongleich: TSpeedButton;
SpeedButton0: TSpeedButton;
BitBtnNeustart: TBitBtn;
SpeedButtonPlus: TSpeedButton;
SpeedButtonMinus: TSpeedButton;
SpeedButtonMal: TSpeedButton;
SpeedButtonDurch: TSpeedButton;
Speedbuttonback: TSpeedButton;
SpeedButtonCE: TSpeedButton;
SpeedButton15: TSpeedButton;
Label1: TLabel;
SpeedButtonWurzel: TSpeedButton;
time: TLabel;
Timer1: TTimer;
SpeedButtonplusminus: TSpeedButton;
SpeedButton10: TSpeedButton;
BitBtnBeenden: TBitBtn;
SpeedButtonx2: TSpeedButton;
SpeedButtonx3: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure SpeedButton0Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure BitBtnNeustartClick(Sender: TObject);
procedure SpeedButtonPlusClick(Sender: TObject);
procedure SpeedButtonMinusClick(Sender: TObject);
procedure SpeedButtonMalClick(Sender: TObject);
procedure SpeedButtonDurchClick(Sender: TObject);
procedure SpeedButtongleichClick(Sender: TObject);
procedure SpeedButtonCEClick(Sender: TObject);
procedure SpeedbuttonbackClick(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButtonkommaClick(Sender: TObject);
procedure SpeedButtonWurzelClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SpeedButtonplusminusClick(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtnBeendenClick(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButtonx2Click(Sender: TObject);
procedure SpeedButtonx3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
zwischenerg: double;
operation: integer;
zeitan: TDateTime;
zeitaus: string;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;
procedure TForm1.SpeedButton0Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton0.caption;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton1.caption;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton2.caption;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton3.caption;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton4.caption;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton5.caption;
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton6.caption;
end;
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton7.caption;
end;
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton8.caption;
end;
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+speedbutton9.caption;
end;
procedure TForm1.BitBtnNeustartClick(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
end;
procedure TForm1.SpeedButtonPlusClick(Sender: TObject);
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
zwischenerg:=strtofloat(edit1.Text);
operation:=1;
edit1.Text:='';
edit1.setfocus;
end;
end;
procedure TForm1.SpeedButtonMinusClick(Sender: TObject);
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
zwischenerg:=strtofloat(edit1.Text);
operation:=2;
edit1.Text:='';
edit1.setfocus;
end;
end;
procedure TForm1.SpeedButtonMalClick(Sender: TObject);
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
zwischenerg:=strtofloat(edit1.Text);
operation:=3;
edit1.Text:='';
edit1.setfocus;
end;
end;
procedure TForm1.SpeedButtonDurchClick(Sender: TObject);
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
zwischenerg:=strtofloat(edit1.Text);
operation:=4;
edit1.Text:='';
edit1.setfocus;
end;
end;
procedure TForm1.SpeedButtongleichClick(Sender: TObject);
begin
case operation of
1: edit1.Text:=floattostr(zwischenerg+strtofloat(edit1.text));
2: edit1.Text:=floattostr(zwischenerg-strtofloat(edit1.text));
3: edit1.Text:=floattostr(zwischenerg*strtofloat(edit1.text));
4: begin
if strtofloat(edit1.text)=0 then
begin
showmessage('Division durch Null nicht teilbar');
edit1.Text:='';
zwischenerg:=0;
end
else
edit1.Text:=floattostr(zwischenerg/strtofloat(edit1.text));
end;
end;
end;
procedure TForm1.SpeedButtonCEClick(Sender: TObject);
begin
edit1.text:='';
end;
procedure TForm1.SpeedbuttonbackClick(Sender: TObject);
var hilf:string;
begin
hilf:=edit1.text;
Delete(hilf, length(edit1.Text), 1);
edit1.Text:=hilf;
end;
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
zwischenerg:=strtofloat(edit1.text);
edit1.text:=floattostr(1/zwischenerg);
end;
end;
procedure TForm1.SpeedButtonkommaClick(Sender: TObject);
begin
if pos( ',', Edit1.Text ) = 0 then
edit1.Text:=edit1.Text+',';
if pos( ',', Edit1.Text) = 1 then
edit1.Text:='0,';
end;
procedure TForm1.SpeedButtonWurzelClick(Sender: TObject);
var zahl:double;
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
zahl:=strtofloat(edit1.Text);
edit1.text:=floattostr(sqrt(zahl));
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
time.caption:=FormatDateTime('dd.mm.yyyy hh:nn:ss',now);
end;
procedure TForm1.SpeedButtonplusminusClick(Sender: TObject);
var x:double;
begin
x:=strtofloat(edit1.text);
x := x*-1;
edit1.Text:=floattostr(x);
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
const Pi:double=3.1415926535897932384626433832795;
begin
edit1.text:=floattostr(Pi);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
zeitan:=now;
speedbuttondurch.caption:=#247;
end;
procedure TForm1.BitBtnBeendenClick(Sender: TObject);
var gesamtzeit:string;
begin
Gesamtzeit:=TimetoStr(now-zeitan);
end;
procedure TForm1.SpeedButton11Click(Sender: TObject);
var gesamtzeit:string;
begin
Gesamtzeit:=TimetoStr(now-zeitan);
showmessage(Gesamtzeit);
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var gesamtzeit:string;
begin
Gesamtzeit:=TimetoStr(now-zeitan);
showmessage(Gesamtzeit);
close;
end;
procedure TForm1.SpeedButtonx2Click(Sender: TObject);
var x,x2:double;
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
x:=strtofloat(edit1.text);
x2:=x*x;
edit1.text:=floattostr(x2);
end;
end;
procedure TForm1.SpeedButtonx3Click(Sender: TObject);
var x,x3:double;
begin
if edit1.Text ='' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
end
else
begin
x:=strtofloat(edit1.text);
x3:=x*x*x;
edit1.Text:=floattostr(x3);
end;
end;
end. |
|
|
ZeitGeist87
Beiträge: 1593
Erhaltene Danke: 20
Win95-Win10
Delphi 10 Seattle, Rad Studio 2007, Delphi 7 Prof., C++, WSH, Turbo Pascal, PHP, Delphi X2
|
Verfasst: Mo 25.06.07 16:32
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:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
| unit taschenrechner;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Edit1: TEdit;
SpeedButton9: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButtonkomma: TSpeedButton;
SpeedButtongleich: TSpeedButton;
SpeedButton0: TSpeedButton;
BitBtnNeustart: TBitBtn;
SpeedButtonPlus: TSpeedButton;
SpeedButtonMinus: TSpeedButton;
SpeedButtonMal: TSpeedButton;
SpeedButtonDurch: TSpeedButton;
Speedbuttonback: TSpeedButton;
SpeedButtonCE: TSpeedButton;
SpeedButton15: TSpeedButton;
Label1: TLabel;
SpeedButtonWurzel: TSpeedButton;
time: TLabel;
Timer1: TTimer;
SpeedButtonplusminus: TSpeedButton;
SpeedButton10: TSpeedButton;
BitBtnBeenden: TBitBtn;
SpeedButtonx2: TSpeedButton;
SpeedButtonx3: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure SpeedButton0Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure BitBtnNeustartClick(Sender: TObject);
procedure SpeedButtonPlusClick(Sender: TObject);
procedure SpeedButtonMinusClick(Sender: TObject);
procedure SpeedButtonMalClick(Sender: TObject);
procedure SpeedButtonDurchClick(Sender: TObject);
procedure SpeedButtongleichClick(Sender: TObject);
procedure SpeedButtonCEClick(Sender: TObject);
procedure SpeedbuttonbackClick(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButtonkommaClick(Sender: TObject);
procedure SpeedButtonWurzelClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SpeedButtonplusminusClick(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtnBeendenClick(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButtonx2Click(Sender: TObject);
procedure SpeedButtonx3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
zwischenerg: double;
operation: integer;
zeitan: TDateTime;
zeitaus: string;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;
procedure TForm1.SpeedButton0Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton0.caption;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton1.caption;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton2.caption;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton3.caption;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton4.caption;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton5.caption;
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton6.caption;
end;
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton7.caption;
end;
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton8.caption;
end;
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
edit1.Text:= edit1.Text+speedbutton9.caption;
end;
procedure TForm1.BitBtnNeustartClick(Sender: TObject);
begin
edit1.Text:= '';
edit1.SetFocus;
end;
procedure TForm1.SpeedButtonPlusClick(Sender: TObject);
begin
if edit1.Text = '' then
begin
showmessage('Sie müssen schon was eingeben damit man rechnen kann...');
exit;
else
begin
zwischenerg:= strtofloat(edit1.Text);
operation:= 1;
edit1.Text:= '';
edit1.setfocus;
end;
end;
procedure TForm1.SpeedButtonMinusClick(Sender: TObject);
begin
zwischenerg:= strtofloat(edit1.Text);
operation:= 2;
edit1.Text:= '';
edit1.setfocus;
end;
procedure TForm1.SpeedButtonMalClick(Sender: TObject);
begin
zwischenerg:= strtofloat(edit1.Text);
operation:= 3;
edit1.Text:= '';
edit1.setfocus;
end;
procedure TForm1.SpeedButtonDurchClick(Sender: TObject);
begin
zwischenerg:= strtofloat(edit1.Text);
operation:= 4;
edit1.Text:= '';
edit1.setfocus;
end;
procedure TForm1.SpeedButtongleichClick(Sender: TObject);
begin
case operation of
1: edit1.Text:= floattostr(zwischenerg+strtofloat(edit1.text));
2: edit1.Text:= floattostr(zwischenerg-strtofloat(edit1.text));
3: edit1.Text:= floattostr(zwischenerg*strtofloat(edit1.text));
4: begin
if strtofloat(edit1.text) = 0 then
begin
showmessage('Division durch Null nicht teilbar');
edit1.Text:= '';
zwischenerg:= 0;
end
else
edit1.Text:= floattostr(zwischenerg/strtofloat(edit1.text));
end; end;
end;
procedure TForm1.SpeedButtonCEClick(Sender: TObject);
begin
edit1.text:= '';
end;
procedure TForm1.SpeedbuttonbackClick(Sender: TObject);
var hilf:string;
begin
hilf:= edit1.text;
Delete(hilf, length(edit1.Text), 1);
edit1.Text:= hilf;
end;
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
zwischenerg:= strtofloat(edit1.text);
edit1.text:= floattostr(1/zwischenerg);
end;
procedure TForm1.SpeedButtonkommaClick(Sender: TObject);
begin
if pos( ',', Edit1.Text ) = 0 then
edit1.Text:= edit1.Text + ',';
if pos( ',', Edit1.Text) = 1 then
edit1.Text:= '0,';
end;
procedure TForm1.SpeedButtonWurzelClick(Sender: TObject);
var zahl:double;
begin
zahl:= strtofloat(edit1.Text);
edit1.text:= floattostr(sqrt(zahl));
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
time.caption:= FormatDateTime('dd.mm.yyyy hh:nn:ss',now);
end;
procedure TForm1.SpeedButtonplusminusClick(Sender: TObject);
var x:double;
begin
x:= strtofloat(edit1.text);
x := x*-1;
edit1.Text:= floattostr(x);
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
const Pi:double=3.1415926535897932384626433832795;
begin
edit1.text:= floattostr(Pi);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
zeitan:= now;
speedbuttondurch.caption:= #247;
speedbuttonx2.caption:= 'x'+#178;
speedbuttonx3.caption:= 'x'+#179;
end;
procedure TForm1.BitBtnBeendenClick(Sender: TObject);
var gesamtzeit:string;
begin
Gesamtzeit:= TimetoStr(now-zeitan);
end;
procedure TForm1.SpeedButton11Click(Sender: TObject);
var gesamtzeit:string;
begin
Gesamtzeit:= TimetoStr(now-zeitan);
showmessage(Gesamtzeit);
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var gesamtzeit:string;
begin
Gesamtzeit:= TimetoStr(now-zeitan);
showmessage(Gesamtzeit);
close;
end;
procedure TForm1.SpeedButtonx2Click(Sender: TObject);
var x,x2:double;
begin
x:= strtofloat(edit1.text);
x2:= x*x;
edit1.text:= floattostr(x2);
end;
procedure TForm1.SpeedButtonx3Click(Sender: TObject);
var x,x3:double;
begin
x:= strtofloat(edit1.text);
x3:= x*x*x;
edit1.Text:= floattostr(x3);
end;
end. | _________________ Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Mo 25.06.07 17:05
Da fehlt überall ein Leerzeichen vorne:
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| begin
DoSomething; if X = Y then
begin
DoSomethingOther;
end
X := Y + Z;
end |
Also bei karatboy stimmt das mit den Leerzeichen vorne dran. _________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Mo 25.06.07 17:11
Für die korrekte Einrückung gibt es DelForEx von Herrn van Ness ... Einfach mal im Inet suchen ...
Wobei ich mich frag, seit wann die Einrückung einen Fehler verursacht  _________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
alzaimar
Beiträge: 2889
Erhaltene Danke: 13
W2000, XP
D6E, BDS2006A, DevExpress
|
Verfasst: Mo 25.06.07 18:24
 BenBE hat folgendes geschrieben: | Für die korrekte Einrückung ...
Wobei ich mich frag, seit wann die Einrückung einen Fehler verursacht |
...
Und ich frag mich, seit wann es eine 'korrekte' bzw. (folgerichtig) 'inkorrekte' Einrückung gibt.
Jeder nach seiner Facon _________________ Na denn, dann. Bis dann, denn.
|
|
AndyB
Beiträge: 1173
Erhaltene Danke: 14
RAD Studio XE2
|
Verfasst: Mo 25.06.07 23:54
_________________ Ist Zeit wirklich Geld?
|
|
Dunkel
Beiträge: 682
Mac OS X Snow Leopard
Xcode 3.1
|
Verfasst: Di 26.06.07 00:20
If-Then-Else mache ich so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| if x = y then
begin
end
else
begin
if y <> z then
begin
end
else
begin
end;
end; |
Sprich: das ELSE auf Höhe des dazugehörigen IFs einrücken. Das ist IMHO besser lesbar.
Ist aber wahrscheinlich Geschmackssache. _________________ Ich streite einsam mich mit dieser Oberflächenwelt
Gutes sei ein löblich Brot von dem ich zehre - bis zum Tod [Das Ich - Im Ich]
|
|
COMMANDER86
Beiträge: 167
Win XP, Win Vista
D3 Prof., D7 Pers., Lazarus
|
Verfasst: Di 26.06.07 00:31
Ich kann meinen Vorschreibern nur zustimmen. Ich denke auch, dass das lediglich Geschmackssache ist, wie, wann und wo man einrückt. Fehler sollten meines Erachtens (zumindest unter Delphi) nicht entstehen, wenn man nicht "regulär" einrückt.
Ich habe bis jetzt allerdings noch nicht die Intention des Posts gefunden. Geht es nur um das Einrücken oder "Finde-den-Fehler" oder... Beides oder... *?*
Klärt mich auf, Freunde. 
PS: Ich würde es etwa so schreiben:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| if X = Y then
begin
end else if X = Z then
begin
end else
begin
end; | _________________ Streichen Sie bitte sämtlichen Sarkasmus aus vorhergehender Nachricht. Dann wissen Sie, was ich sagen möchte. Meine Lösungen sind die vermutlich Umständlichsten, aber sie funktionieren (bei mir).
|
|
Narses
Beiträge: 10183
Erhaltene Danke: 1256
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Di 26.06.07 00:40
Moin!
| COMMANDER86 hat folgendes geschrieben: | | Ich habe bis jetzt allerdings noch nicht die Intention des Posts gefunden. Geht es nur um das Einrücken oder "Finde-den-Fehler" oder... Beides oder... *?* |
Naja  da der Thread-Ersteller "vergessen" hat, das Projekt als Anhang oder wenigstens den DFM-Text hier zu veröffentlichen, wird sich wohl niemand die Mühe machen, die Oberfläche zu rekonstruieren...  
Deshalb bleibt uns ja nur das rumgemäkel an der Form, statt der Funktion  
wenn ich mal so den QT überfliege, würde ich einfach mal raten, dass da noch mindestens ein Fehler drin ist...
cu
Narses _________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
COMMANDER86
Beiträge: 167
Win XP, Win Vista
D3 Prof., D7 Pers., Lazarus
|
Verfasst: Di 26.06.07 00:54
| Narses hat folgendes geschrieben: | | Deshalb bleibt uns ja nur das rumgemäkel an der Form, statt der Funktion |
Ah... alles klar. An der angegebenen Form habe ich nichts auszusetzen. Ich finde sie sogar ziemlich gut lesbar im Gegensatz zu dem, was mir mein Lehrer damals kopiert hat. _________________ Streichen Sie bitte sämtlichen Sarkasmus aus vorhergehender Nachricht. Dann wissen Sie, was ich sagen möchte. Meine Lösungen sind die vermutlich Umständlichsten, aber sie funktionieren (bei mir).
|
|
Dunkel
Beiträge: 682
Mac OS X Snow Leopard
Xcode 3.1
|
Verfasst: Di 26.06.07 01:26
| COMMANDER86 hat folgendes geschrieben: |
PS: Ich würde es etwa so schreiben:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| if X = Y then
begin
end else if X = Z then
begin
end else
begin
end; | |
Wirklich? Ich finde das end else if in dieser Form absolut unübersichtlich. Da erkennt doch niemand (außer dem Schreiberling) auf dem ersten Blick wo das eine if aufhört und wo das andere if im else-Zweig des ersten ifs anfängt. _________________ Ich streite einsam mich mit dieser Oberflächenwelt
Gutes sei ein löblich Brot von dem ich zehre - bis zum Tod [Das Ich - Im Ich]
|
|
FiceGoesDelphi
Beiträge: 485
Win XP Prof
Delphi 2006
|
Verfasst: Di 26.06.07 07:29
Morgen. Ich schreib gerade vom handy aus. Mal sehen ob es klappt.. Also stellt euch mal vor ihr müsst nen prog bearbeiten was ohne style geschrieben wurde und wo nix eingerückt wurde. Ist unheimlich mühsam und anstrengend sowas oder? Es gibt halt sozusagen schreib-knigge die man einhalten sollte  _________________ <(^^<) <(^^)> (>^^)>
===================
|
|
alzaimar
Beiträge: 2889
Erhaltene Danke: 13
W2000, XP
D6E, BDS2006A, DevExpress
|
Verfasst: Di 26.06.07 08:15
Besorg Dir (z.B.) DelForExp, installiere es, stlle die Optionen nach Gusto ein und -pronto- hast du lesbaren Code. DEr eine will das begin in einer eigenen Zeile, der andere nicht. Da gibt es nichts Verbindliches. Ich spare z.B. gerne Zeilen und da ist es kontraproduktiv, 'Begin','end','else' etc. in separate Zeilen zu packen.
_________________ Na denn, dann. Bis dann, denn.
|
|
ZeitGeist87
Beiträge: 1593
Erhaltene Danke: 20
Win95-Win10
Delphi 10 Seattle, Rad Studio 2007, Delphi 7 Prof., C++, WSH, Turbo Pascal, PHP, Delphi X2
|
Verfasst: Di 26.06.07 08:21
| GTA-Place hat folgendes geschrieben: | Da fehlt überall ein Leerzeichen vorne:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| begin
DoSomething; if X = Y then
begin
DoSomethingOther;
end
X := Y + Z;
end |
Also bei karatboy stimmt das mit den Leerzeichen vorne dran. |
Was ist denn richtig und was falsch?
Ich rutsch halt so ein, so wurde es mir beigebracht und so kann es auch wirklich jeder problemlos lesen und findet sich zurecht.
Aber wie gesagt, jeder so wie er möchte, allerdings sollte man sich an gewisse Regeln halten.
LG
Stefan _________________ Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
|
|
FiceGoesDelphi
Beiträge: 485
Win XP Prof
Delphi 2006
|
Verfasst: Di 26.06.07 08:22
Das hat nichts mit Verbindlichkeit oder sonstwas zu tun!
Wenn einer deiner Kollegen niest, was machst du dann?! Sagst du "Gesundheit" oder wartest du (laut neuer Knigge) bis dein Kollege "Verzeihung" sagt?
Ähnlich ist es mit dem "Schreibstyle". Es gibt bestimmte "Verhaltensregeln" (wenn man es so nennen will), die man vllt einhalten sollte.
Kannst du auf der Arbeit alles auf deinen Rechnern installieren?
Ich nicht! Da kann ich nicht mal eben was installieren.. nein erst ne Anfoderung schreiben etc.
Nun ist das Programm aber sehr wichtig und muss schnellstens wieder ans laufen gebracht werden.
Was machst du? Es sind sicherlich keine Gesetze! Aber trotzdem sollten ein paar kleinigkeiten wie zB "richtiges" (jaja.. was ist schon richtig.. aber ich denke wir alle wissen wie es gemeint ist! Auch wenn man es ein wenig dehnen kann!) einrücken etc.
_________________ <(^^<) <(^^)> (>^^)>
===================
|
|
alzaimar
Beiträge: 2889
Erhaltene Danke: 13
W2000, XP
D6E, BDS2006A, DevExpress
|
Verfasst: Di 26.06.07 08:47
DelFor gibts auch als EXE, dann ist es eben kein Plugin. Da muss man nix installieren. Damit würde ich die Sourcen formattieren. Wenn das andere Leute lesen sollen, einigt man sich auf einen Style.
Es gibt den "Borland Style", daran halten sich Viele. Such mal danach.
_________________ Na denn, dann. Bis dann, denn.
|
|
FiceGoesDelphi
Beiträge: 485
Win XP Prof
Delphi 2006
|
Verfasst: Di 26.06.07 08:52
und du meinst, man kann "exen" runterladen?
Kann man ja gleich die Firewall ausstellen *gg*
Wir sind uns aber einig, das eingerückt werden sollte Wie genau ist ja erstmal egal _________________ <(^^<) <(^^)> (>^^)>
===================
|
|
24karatboy 
Beiträge: 110
Win XP
Delphi (Delphi Win32)
|
Verfasst: Di 26.06.07 09:21
Bitte nicht streiten ich wollte ja nur wissen ob es richtig eingerückt ist vielleicht hätte ich es anders schreiben sollen und zwar übersichtlich eingerückt weil was ist schon falsches einrücken ?
@commander86: wolltest du mir damit sagen das ich das prog von meinem lehrer bekommen habe ?
@Zeitgeist: nach der showmessage soll kein exit; sondern nen end. Das Programm soll weiter laufen es soll nur ne falsche bzw. garkeine eingabe verhindern weil dann fehler auftreten.
@all: danke
|
|
|
