procedure funktioniert nich?

[richie]

Tach Allerseits,

Ich steh grad richtig aufm Schlauch. Dabei isses was richtig einfaches.

Also ich schreib eine procedure:

Delphi-Quellcode:

procedure machwas;
begin
  memo1.Lines.Add('Holla die Waldfee!'); //Zeile 35
end;

nun will ich das beim Buttonclick aufrufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  machwas; // Zeile 29
end;

Jetzt kommen Fehlermeldungen:

Zitat:

[Pascal Fehler] Unit1.pas(29): E2003 Undefinierter Bezeichner: 'schreib'
[Pascal Fehler] Unit1.pas(35): E2003 Undefinierter Bezeichner: 'memo1'
[Pascal Fehler] Unit1.pas(35): E2066 Operator oder Semikolon fehlt

Wieso? Ich hab ein Beispiel aus nem Buch nachgebeut, Fehlermeldung. Und ein ordentliches sich damit beschäftigende Tutorial hab ich nicht gefunden. :gruebel:

[mkinzler]

Du hast eine freie Prozedur entworfen, diese kennt die Methoden der Form so nicht. Du mußt entweder deine Prozedur als Methode der Form-Klasse deklarieren oder halt Formx. vor die Komponeneten schreiben.

[Klaus01]

Deine Prozedure kennt die Objekte der Form nicht,
weil Deine Prozedure nicht eine Methode der Form ist.

Delphi-Quellcode:

procedure machwas; 
begin 
  Form1.memo1.Lines.Add('Holla die Waldfee!'); //Zeile 35 
end;

sollte gehen, oder Du machst aus Deiner Prozedure eine Methode der Form.

Grüße
Klaus

[RavenIV]

entwerder schreibst Du

Delphi-Quellcode:

procedure TForm1.machwas;
begin
  memo1.Lines.Add('Holla die Waldfee!'); //Zeile 35
end;

oder

Delphi-Quellcode:

procedure machwas;
begin
  Form1.memo1.Lines.Add('Holla die Waldfee!'); //Zeile 35
end;

edit:
war wohl zu langsam :-(

[richie]

Oh, danke, erstes Problem gelöst. :-D

Aber jetzt kommt noch

Zitat:

[Pascal Fehler] Unit1.pas(29): E2003 Undefinierter Bezeichner: 'schreib'

:gruebel:

[Klaus01]

aus Deinem bisher veröffentlichten Quelltext kann man
nicht schließen was noch so verkehrt ist.

Grüße
Klaus

[RavenIV]

Zitat:

Zitat von richie

Oh, danke, erstes Problem gelöst. :-D

Aber jetzt kommt noch

Zitat:

[Pascal Fehler] Unit1.pas(29): E2003 Undefinierter Bezeichner: 'schreib'

:gruebel:

du hast uns die Zeile 29 vorenthalten.

[richie]

Ich will die procedure machwas jetzt im Buttonclick aufrufen.

Dann kommt aber:

Zitat:

[Pascal Fehler] Unit1.pas(29): E2003 Undefinierter Bezeichner: 'machwas'

P.S.: Stand oben. Hatte mich nur verschrieben.

Edit: War oben als Kommentar

[Klaus01]

wo hast denn Du Deine Prozedure machwas hingeschrieben?

Steht sie unterhalb implementation?

Grüße
Klaus

[richie]

Hier mal der ganze Code (Das ist ein Testprogramm, deswegen klein):

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  machwas;
end;


procedure machwas;
begin
  Form1.memo1.Lines.Add('Holla die Waldfee!');
end;

end.