Anfänger sucht hilfe für Hangman

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

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:

unit UNIT1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;      {Worteingabe im Multiplayer}
    Button1: TButton; {Button1-button26 Buchstabenbutton}
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1         : TForm1;
  R,K,ausgabe   : String[30]; {R=eingegebenes Wort, K=Kopie v. diesem, ausgabe das was im Label2 erscheint}
  I,L,X,Y       : Integer;
  RR,Z          : String[1];
  F             : Boolean;
implementation

uses Hilfe;



{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
if radiobutton1.Checked then    {hier soll noch was fürn Singleplayer hin}
else begin                      {Multiplayer Modus}
  r:=edit1.text;
  K:=R;
  L:=LENGTH(R);
  For I:= 1 to L do begin
    ausgabe:=ausgabe+'_ ';
    label2.Caption:= ausgabe;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject); {sollen noch abfragen für die einzelnen Buchstaben werden}
begin
Z:='A';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
z:='B';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
z:='C';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
z:='D';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
z:='E';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
z:='F';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
z:='G';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
z:='H';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
z:='I';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
z:='J';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
z:='K';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
z:='L';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
z:='M';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
Z:='N';
end;

end.

Das soll ma en kompletter Sourcecode für Hangman werden, zumindestens nach dem willen meines Infolehrers. Könnte mir jemand dabei helfen bin nämlich noch en Anfänger

Moderiert von Gausi: Beitragsformatierung überarbeitet.

Gausi · Verfasst: Sa 11.02.06 13:38

Hallo, und :welcome:

in der Entwickler-Ecke!

bitte ändere den Titel des Topics, da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Richtlinien:

1.2 Beiträge:

Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.[...]

Einfach oben bei Deinem ersten Beitrag auf user defined image

klicken und den Titel ändern.

Danke!

_________________
We are, we were and will not be.

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

hoffe der Titel ist jetz besser sry für den alten Titel

Jetstream · Beiträge: 222

Hmmm, ich versuch mal, mich da reinzufriemeln ...

Mir fallen gleich zwei Sachen auf:

- Statt "String[1]" kannste gleich "Char" schreiben.

- Du willst allen Ernstes 26 Buttons von Hand erstellen und dann jedem nen eigenen Quelltext zuweisen ?
geht doch viel eleganter ... kannst zum Beispiel mit Canvas versuchen, ne kleine Tabelle aus Buchstaben zu erstellen,
dann fängste das onClick Ereignis ab, errechnest aus den Koordinaten, welcher Buchstabe ausgewählt wurde,
und schon musste das alles nur noch 1x schreiben

Pseudo Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Form1.Canvas.DrawRect(Rect(100,300,400,500))
Form1.Canvas.MoveTo(100,400);
Form1.Canvas.LineTo(400,400);
for a:=1 to 12 do
begin
  b:=100+round(a*200/13);
  Form1.Canvas.MoveTo(b,300);
  Form1.Canvas.LineTo(b,500);
end;

Das müsste ne Tabelle mit 26 Feldern ergeben.
Jetzt noch Buchstaben einfügen (mit Form1.Canvas.TextOut(x,y,text)), dann bei onClick die Koordinaten abfangen und
den Buchstaben rausbekommen.

Hoffe das hilft.
Bin natürlich für Kritik offen!

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

Danke werds ma so probieren, das andere warn Vorschlag von unserm Infolehrer und mir fiel nix besseres ein.

DarkHunter · Beiträge: 477 Win XP D3 Prof, D2005 PE

Noch ein Hangman xD

Also, wenn du wirklich 26 Buttons für die 26 Buchstaben des Alphabets haben willst, dann kannst du auch in
TStringgrid nehmnen. In jede Zelle des Grids kommt ein Buchstabe, und dann fragst du diesen im OnCellSelect-Event ab.

Überprüfen ob der Buchstabe im Wort vorhanden ist, kannst du auf 2 Arten:
Entweder gehst du das Wort Zeichen für Zeichen durch, so wie du es bereits tust um aus dem Wort die _ _ _ _ _ _ zu machen
und schaust ob der ausgewählte Buchstabe mit dem aktuellen Buchstaben im Wort vorhanden ist. Dann kannst du diesen auch gleich ersetzten im Anzeigewort (_ E _ _ _ _).
Alternativ kannst du die funktion pos() nutzen um die Position des Buchstabens im String zu ermitteln.

_________________
I believe that every human has a finite number of heart-beats. I don't intend to waste any of mine running around doing exercises.
- Neil Armstrong

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

Du ganz dumme Frage aber wie mach ich das, dass der mir die Buchstaben dann auch in meinem Ausgabelabel(Label2) anzeigt bei mir klappt dat irgendwie net entweder verschwinden die tollen Unterstriche oder es passiert gar nix, aber ich sehe keine Buchstaben.

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Also ich würde es anders machen und zwar mit Buttons:

markieren

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:

var
  Form1: TForm1;
  Alphabet: Array ['A'..'Z'] of Char; // Programmierer sind faul^^
  function SpaltenAnzahl(Zeilen:integer):integer;

implementation

{$R *.dfm}
procedure CreateAllButtons();
var
  zaehler,ZeilenZaehler,SpaltenZaehler:integer;
  newButton:TButton;
const
  Zeilen=3;  //Zeilenanzahl
  xAbstand=10; //zwischen den Buttons
  yAbstand=15;
begin
  ZeilenZaehler:=1;
  SpaltenZaehler:=1;
  for zaehler:=ord(low(Alphabet)) to ord(high(Alphabet)) do
  begin
    //damit alles seine Ordnung hat
    newButton:=TButton.Create(form1);
    newButton.Parent:=form1;
    //damit wir ihn nachher wiederfinden
    newButton.Name :='btn'+chr(zaehler);
    newButton.Tag := zaehler;
    newButton.OnClick:=Form1.AlleButtonClick;
    //damits schön aussieht
    newButton.Caption := chr(zaehler);
    newButton.Width := 20;
    newButton.Height := 20;
    // Position berechnen
    newButton.Left := 60+ ZeilenZaehler*(newButton.Width+xAbstand);
    newButton.Top := 60+Spaltenzaehler*(newButton.Height+yAbstand);
    if SpaltenZaehler=SpaltenAnzahl(Zeilen) then
    begin // nur so viele in einer Spalte wie es sein müssen
      Spaltenzaehler:=0;
      ZeilenZaehler:=ZeilenZaehler+1;
    end;
    Spaltenzaehler:=Spaltenzaehler+1;
  end;
end;

//Ereignis für alle Buchstabenbuttons, unterscheidung kann ganz unterschiedlich erfolgen...
procedure TForm1.AlleButtonClick(Sender: TObject);
begin
  !dieses Ereignis muss noch oben(unterhalb Type TForm1 ...) deklariert werden!
  showmessage('Du hast den Knop mit dem '+ (Sender AS TButton).Caption+' gedrückt');

  //auf einzelnen Button reagieren
  if (Sender AS TButton).Tag = ord('A') then showmessage('Güteklasse A');

  // oder hier mal auf ein paar mehr
  case (Sender AS TButton).Tag of
    ord('B'):
      begin
        (Sender AS TButton).Visible := false;
      end;
    ord('G')..ord('J'): (Sender AS TButton).Font.Style:= [fsBold];
    else beep;
  end;
end;

// errechnet wie viele Spalten notwendig sind um alle 27 zu erhalten
function SpaltenAnzahl(Zeilen:integer):integer;
begin
  result:=trunc(sizeof(Alphabet)/Zeilen);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    CreateAllButtons;
end;

Ich weiß nicht wie weit ihr im Unterricht sein aber ich empfehle dir das auf jeden fall nachzubereiten.
Lösch am besten mal die Kommentare raus und probiere es mal dir selbst zu erklären.
Oder verändere es so, das alle einem von dir aufs Formular gesetzten Button folgen oder sich alle gleichmäßig innerhalb eines Frames verteilen.

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

THX für den sourcecode probier ihn dann mal aus sorry dat ich dir ne ne PN geschickt hab war aber die einfachste Variante dat du antwortest :-)

_________________
Life is a game but there are only loosers

DarkHunter · Beiträge: 477 Win XP D3 Prof, D2005 PE

Zum Buchstaben ersetzten:
Du hast 2 Variablen: Lösungswort und Anzeigewort:
Wenn nun das Wort was zu raten DELPHI ist, so ist Lösungswort = 'DELPHI' und Anzeigewort = '_ _ _ _ _ _ ';
Nun rät der Spieler den Buchstaben E.
E befindet sich bei DELPHI an Position 2, jetzt gehst du im Anzeigewort zum 2ten Zeichen und ersetzt den '_' durch ein E.
Fertig! Es ist jedoch zu beachten das die Lösungswort[n] <> Anzeigewort[n] ist, vielmehr gilt: Lösungswort[n] = Anzeigewort [n*2-1].

Ich hoffe das war verständlich.

_________________
I believe that every human has a finite number of heart-beats. I don't intend to waste any of mine running around doing exercises.
- Neil Armstrong

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

[quote="

digi_c"]

markieren

Delphi-Quelltext

1:
2:
3:

var
  zaehler,ZeilenZaehler,SpaltenZaehler:integer;
  newButton:TButton;

Hier erhalt ich immer nen error digi_c un zwar Undeclared identifier TButton kannste mir da ma helfen

_________________
Life is a game but there are only loosers

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Du musst vermutlich ganz oben bei uses noch ",StdCtrls" ranhängen, da sich der TButton in dieser Unit hinterlegt ist.

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

Danke werds ausprobieren

_________________
Life is a game but there are only loosers

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

digi_c hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

//Ereignis für alle Buchstabenbuttons, unterscheidung kann ganz unterschiedlich erfolgen...
procedure TForm1.AlleButtonClick(Sender: TObject);
begin
  !dieses Ereignis muss noch oben(unterhalb Type TForm1 ...) deklariert werden!
  showmessage('Du hast den Knop mit dem '+ (Sender AS TButton).Caption+' gedrückt');

Und als was soll dieses Ereigniss deklariert werden ich bekomm nämlich nur fehlermeldungen

_________________
Life is a game but there are only loosers

DarkHunter · Beiträge: 477 Win XP D3 Prof, D2005 PE

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

type 
TForm1 = class(TForm)
...
procedur AlleButtonClick(Sender:TObject);
...
end;

so ist das mit dem deklarieren gemeint.

_________________
I believe that every human has a finite number of heart-beats. I don't intend to waste any of mine running around doing exercises.
- Neil Armstrong

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Deinen Info Lehrer würde ich mal zusammenstauchen oder über meine Mitarbeit im Fach Informatik nachdenken :lol:

Ich ahne es schon "Joar dann klickt ihr oben in die Leiste und platziert hier die Buttons hin und dann doppeklickt ihr drauf und schreibt das folgende rein..."

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

Du hast es erfasst so lief dat bisher un jetz sollen wir so ausm nix Hangman programmieren, ich mein ich interessiere mich ja fürs programmieren hab ber vorher mit Visual Basic 6.0 gearbeitet und nun muss ich, nach nem Schulwechsel, mit Delphi programmieren

_________________
Life is a game but there are only loosers

Sky86Devil · Hält's aus hier Beiträge: 17 Win XP Delphi 6.0

So nach ner etwas längeren Pause ein kleiner Stand der Dinge, würde mich über Anregungen und Verbesserungsvorschläge freuen, fehlen aber noch einige Dinge

markieren

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:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:

unit Hangman;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button28: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Button27: TButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button27Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1         : TForm1;
  R,K,ausgabe   : String[30];
  I,L,X,Y       : Integer;
  RR,Z          : String[1];
  F             : Boolean;
implementation

uses Hilfe;



{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
if radiobutton1.Checked then
else begin
  r:=edit1.text;
  For I:=1 to length(R) do
  R[I]:= upcase(R[I]);
  K:=R;
  L:=LENGTH(R);
  edit1.Visible:=false;
  For I:= 1 to L do begin
    ausgabe:=ausgabe+' _';
    label2.Caption:= ausgabe;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Z:='A';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
z:='B';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
z:='C';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
z:='D';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
z:='E';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
z:='F';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
z:='G';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
z:='H';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
z:='I';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
z:='J';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
z:='K';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
z:='L';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
z:='M';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
Z:='N';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
z:='O';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
Z:='P';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
Z:='Q';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
Z:='R';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
Z:='S';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
Z:='T';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
Z:='U';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
Z:='V';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
Z:='W';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
Z:='X';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
Z:='Y';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Z:='Z';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
Z:=' ';
For I:=1 to L do begin
  If Copy(R,I,1)=Z then begin
    delete(R,I,1);
    insert('\',R,I);
    delete(ausgabe,2*I,1);
    insert(z,ausgabe,2*I);
    label2.caption:=ausgabe;
    end;
  end;
end;

end.

Moderiert von Gausi: Beitragsformatierung überarbeitet.

_________________
Life is a game but there are only loosers

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Schön das du uns auf dem Laufenden halten willst aber was hat das hier in der Problemsparte zu tun?
Und was sollen wir mit Seitenweisen Code?
Und wieso ist der Code nicht mit Highlightning eingefügt?

Gausi · Verfasst: Sa 04.03.06 09:42

Abgesehen davon, dass der Code grausam ist, weil 26 mal dasselbe dasteht, was man mit ein bißchen Geschick auch in einer Prozedur erledigen kann (Es ist ja immer nur eine Zeile anders. Die Buttons sind doch bestimmt alle beschriftet - dann nimmt man halt für das "Z" die Beschriftung des gedrückten Buttons und weist allen Buttons dieselbe Prozedur zu.) - abgesehen davon bin ich nicht so gut im Quelltext lesen, dass ich daraus die Qualität eines Programms beurteilen kann...

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme