If Key = #60 then ... [Bitte um Hilfe]

Ice-X2 · Beiträge: 26 Win XP D6 Pers

Hi,

Warum funktioniert dieser Code nicht ?

Delphi-Quelltext

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

if Key = #60 then
   Edit1.Visible := True;
   Memo1.Visible := True;
else 
   Edit1.Visible := False;
   Memo1.Visible := False;

Kann mir da jemand weiterhelfen ?

MFG
Ice-X2

P.S Es kommt diese Fehlermeldung:

markieren

Delphi-Quelltext

1:	[Fehler] ex.pas(219): ';' nicht erlaubt vor einem 'ELSE'

Moderiert von Christian S.: Topic aus VCL (Visual Component Library) verschoben am Mo 03.01.2005 um 17:45

sibbe · Beiträge: 50 WIN XP Prof D7 Prof

Mach doch einfach was er von dir verlangt und lösche das ';' in der Zeile vor dem Else.
Ich wette dann klappts... :wink:

Außerdem muss du die Befehle mit 'begin' und 'end' eingrenzen, etwa so:

markieren

Delphi-Quelltext

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

if Key = #60 then
   begin
     Edit1.Visible := True;
     Memo1.Visible := True;
   end
   else
   begin 
     Edit1.Visible := False;
     Memo1.Visible := False;
   end;

dann kann das ';' nach dem True wieder dran, dafür fehlts dann nach dem 'end'

_________________
Ideale sind wie Sterne: Man kann sie zwar nicht erreichen, aber man kann sich sehr wohl an ihnen orientieren.
(Blaise Pascal)

Robert.Wachtel · Verfasst: Mo 03.01.05 17:48

Nun, räusper, der Code funktioniert nicht, da ';' nicht erlaubt ist vor einem 'ELSE'...

Zum Anderen willst Du mehrere Anweisungen ausführen - diese sind von einem 'BEGIN'...'END' einzuklammern:

markieren

Delphi-Quelltext

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

if [Bedingung] then
begin
  [Anweisungen]
end
else
begin
  [Anweisungen]
end;

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Eigentlich sagt die Fehlermeldung doch schon, was syntaktisch falsch ist: Vor Else gehört kein Semikolon hin.

Das ist aber nicht der einzige Fehler in Deinem Code. Du solltest Dir noch einmal genau anschauen, wie man mit If-Bedingungen arbeitet. In der Tutorials-Sparte gibt es auch Eines dazu. Hier ist der Fehler ganz konkret, dass Du "begin" und "end" vergessen hast:

markieren

Delphi-Quelltext

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

if Key = #60 then
begin
   Edit1.Visible := True;
   Memo1.Visible := True;
end //ohne Semikolon
else
begin
   Edit1.Visible := False;
   Memo1.Visible := False;
end; //mit Semikolon, da kein Else danach

MfG
Christian

//edit: Nicht nur zu langsam, sondern auch noch verschrieben :bawling:

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Robert.Wachtel · Verfasst: Mo 03.01.05 17:49

sibbe hat folgendes geschrieben:

[...] Ich wette dann klappts... :wink:

Das glaube ich nicht, Tim! :wink:

sibbe · Beiträge: 50 WIN XP Prof D7 Prof

Robert.Wachtel hat folgendes geschrieben:

sibbe hat folgendes geschrieben:

[...] Ich wette dann klappts... :wink:

Das glaube ich nicht, Tim! :wink:

a) wer ist tim?

b) ich sollte erst überlegen und dann posten :oops:

aber kann man in so einem *tschuldigung* "billigen" code erwarten, dass da gleich 2 fehler drin sind ? :wink:

_________________
Ideale sind wie Sterne: Man kann sie zwar nicht erreichen, aber man kann sich sehr wohl an ihnen orientieren.
(Blaise Pascal)

Ice-X2 · Beiträge: 26 Win XP D6 Pers

... naja es können jedem Fehler vorkommen, auch mir :oops:

.
Troztdem Danke für eure Antworten :wink:

MFG
Ice-X2

Robert.Wachtel · Verfasst: Mo 03.01.05 19:34

sibbe hat folgendes geschrieben:

Robert.Wachtel hat folgendes geschrieben:

Das glaube ich nicht, Tim! :wink:

a) wer ist tim?

tinyurl.com/6h8l2 :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme