Msg Box

[cell]

habe da ein Problem bzw Frage zu einer ShowMessage anweisung

Delphi-Quellcode:

procedure Tfrmmdichild.cmdbemerkungaendernClick(Sender: TObject);
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
var
   Bemerk: string;
begin
     if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
        ShowMessage(Bemerk)
     frmmdichild.mobemerkung.Lines.Append(Bemerk) // mit dem will ich den bemerk in ein Memo feld schreiben
     else
         ShowMessage('Leider nicht');
end;

leider kommt da immer ein Fehler
operator oder semikolon fehlt. es hat irgendwas mit dem frmmdichild, weiß aber nicht was !

[Olli]

Hinter "ShowMessage(Bemerk)" gehört ein Semikolon.

Außerdem solltest du den IF- und den ELSE-Block aber immer in BEGIN-END stecken. Ist guter Stil und vereinfacht Codeerweiterungen. Hier in diesem Fall ist es sogar unabdingbar.

Für den Service am Kunden :

Delphi-Quellcode:

procedure Tfrmmdichild.cmdbemerkungaendernClick(Sender: TObject);
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
var
   Bemerk: string;
begin
     if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
     begin
       ShowMessage(Bemerk);
       frmmdichild.mobemerkung.Lines.Append(Bemerk); // mit dem will ich den bemerk in ein Memo feld schreiben
     end
     else
     begin
       ShowMessage('Leider nicht');
     end;
end;

[merlin17]

hallo cell,

schau' Dir bitte einmal die Syntax von if...then....else in der hilfe von Delphi an.
dann erkennst du die bedeutung bzw. vorgaben von begin...end in dem then-bereich und
wenn man ein semikolon benötigt und wann nicht.


thomas

[Igotcha]

Delphi-Quellcode:

procedure Tfrmmdichild.cmdbemerkungaendernClick(Sender: TObject);
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
var
   Bemerk: string;
begin
     if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
     begin
        ShowMessage(Bemerk);
        frmmdichild.mobemerkung.Lines.Append(Bemerk); // mit dem will ich den bemerk in ein Memo feld schreiben
     end
     else
         ShowMessage('Leider nicht');
end;

Gruß Igotcha

[sakura]

begin...end nicht vergessen

Code:

procedure Tfrmmdichild.cmdbemerkungaendernClick(Sender: TObject);
var
   Bemerk: string;
begin
  if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
  [b]begin[/b];
    ShowMessage(Bemerk)[b];[/b]
    frmmdichild.mobemerkung.Lines.Append(Bemerk) // mit dem will ich den bemerk in ein Memo feld schreiben
  [b]end[/b]
  else
    ShowMessage('Leider nicht');
end;

......

[Olli]

ein Feuerwerk der Hilfsbereitschaft

[cell]

danke für die hilfe
aber leider sagt er mir auch mit begin - end den gleichen fehler noch

ich glaube das irgendetwas mit dem frmmdichild ist
ich habe das in der main deklariert, aber nicht global glaube, dass das etwas damit zu tun hat, leider weiß ich nicht wie ich das global mache
ober halb von meinem var ist noch eines vorm implementation Teil
aber wenn ich das da deklariere kommt auch ein fehler und zwar
undefinierter bezeichner

[sakura]

Zitat von cell:

aber leider sagt er mir auch mit begin - end den gleichen fehler noch

Beachte das Semikolon hinter ShowMessage(Bemerk);

......

[Jasocul]

Hast du auch das Semikolon geschrieben, wie Olli ganz oben geschrieben hat?

EDIT: zu langsam.

[cell]

ja hab ich gemacht aber er sagt jetzt was anderes: undefinierter Bezeichner frmmdichildwin
ich habe das im main deklariert und das main ist im uses
normalerweise muss das doch gehn ????