Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - richtig eingerückt ? und evtl. noch fehler ?


24karatboy - Mo 25.06.07 16:31
Titel: richtig eingerückt ? und evtl. noch fehler ?

Delphi-Quelltext 
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
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  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 - Mo 25.06.07 16:32

Delphi-Quelltext 
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
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  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; //of case(4)
  end; //of case
 
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.


GTA-Place - 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;  // Um 2 Leerzeichen einrücken
  if X = Y then
  begin
    DoSomethingOther;
  end

 // [...]

  // Außerdem laut Styleguide:
  X := Y + Z;
end


Also bei karatboy stimmt das mit den Leerzeichen vorne dran.


BenBE - 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 :mrgreen:


alzaimar - Mo 25.06.07 18:24
user profile iconBenBE hat folgendes geschrieben:
Für die korrekte Einrückung ...
Wobei ich mich frag, seit wann die Einrückung einen Fehler verursacht :mrgreen:

...
Und ich frag mich, seit wann es eine 'korrekte' bzw. (folgerichtig) 'inkorrekte' Einrückung gibt. :mrgreen: :mrgreen:

Jeder nach seiner Facon


AndyB - Mo 25.06.07 23:54
user profile iconBenBE hat folgendes geschrieben:
Wobei ich mich frag, seit wann die Einrückung einen Fehler verursacht :mrgreen:

Wohl noch nie in Phython programmiert :wink:


Dunkel - 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
      {mach was}
    end
  else
    begin
      if y <> z then
        begin
          {mach was anderes}
        end
      else
        begin
          {mach was ganz anderes}
        end;  
    end;

Sprich: das ELSE auf Höhe des dazugehörigen IFs einrücken. Das ist IMHO besser lesbar.

Ist aber wahrscheinlich Geschmackssache.


COMMANDER86 - 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
    //Mach was
  end else if X = Z then
  begin
    //Mach was And'res
  end else 
  begin
    //Tu was völlig And'res
  end;


Narses - Di 26.06.07 00:40
Moin!

user profile iconCOMMANDER86 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... :| :roll:

Deshalb bleibt uns ja nur das rumgemäkel an der Form, statt der Funktion :lol: :mahn:
wenn ich mal so den QT überfliege, würde ich einfach mal raten, dass da noch mindestens ein Fehler drin ist...
cu
Narses


COMMANDER86 - Di 26.06.07 00:54
user profile iconNarses 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. ;)


Dunkel - Di 26.06.07 01:26
user profile iconCOMMANDER86 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
    //Mach was
  end else if X = Z then
  begin
    //Mach was And'res
  end else 
  begin
    //Tu was völlig And'res
  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. :?


FiceGoesDelphi - 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 - 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.


ZeitGeist87 - Di 26.06.07 08:21
user profile iconGTA-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;  // Um 2 Leerzeichen einrücken
  if X = Y then
  begin
    DoSomethingOther;
  end

 // [...]

  // Außerdem laut Styleguide:
  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


FiceGoesDelphi - 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 - 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.


FiceGoesDelphi - 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 - 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 ;)


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!