Schwerwiegender Fehler

[N47R0N]

ich habe beim Compilieren eines Programmes diese fehlermeldung
bekommen:

Code:

[Fehler] Unit1.pas(193): Ungenügende Forward- oder External-Deklaration: 'TForm1.send_data'
[Fehler] Unit1.pas(194): Ungenügende Forward- oder External-Deklaration: 'TForm1.send_data2'
[Fehler] Unit1.pas(195): Ungenügende Forward- oder External-Deklaration: 'TForm1.get_clients'
[Fataler Fehler] SpyTrojan.dpr(7): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Es wird mir dieser verweis unter Type angezeigt:

Delphi-Quellcode:

    procedure send_data(s_name,s_data,s_status:string);
    procedure send_data2(s_name,s_data,s_status:string);

hier noch die Proceduren an sich:

Delphi-Quellcode:

procedure send_data(s_name,s_data,s_status:string);
begin
if b_connected then begin
Form1.sock_client.socket.sendtext(s_name+s_data);
end else begin
end;
end;

procedure send_data2(s_name,s_data,s_status:string);
begin
if b_connected then begin
Form1.sock_server.socket.Connections[0].sendtext(s_name+s_data);
end else begin
end;
end;

was bedeutet dieser fehler und wie kann ich ihn beheben?

Danke für jede hilfe

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. ;-) Mfg, Daniel[/edit]

[marabu]

Hi,

du hast bei der Implementierung deiner Methoden den class qualifier vergessen:

Delphi-Quellcode:

procedure TForm1.send_data(s_name,s_data,s_status:string);
begin
  if b_connected then 
  begin
    {Form1.}sock_client.socket.sendtext(s_name+s_data);
  end else 
  begin
  end;
end;

procedure TForm1.send_data2(s_name,s_data,s_status:string);
begin
  if b_connected then 
  begin
    {Form1.}sock_server.socket.Connections[0].sendtext(s_name+s_data);
  end else 
  begin
  end;
end;

Grüße vom marabu

[N47R0N]

lol ich wusste das es nur an einem schreibfehler liegen kann :-D :-D :-D

Danke

[Christian Seehase]

Moin N47R0N,

vielleicht ist es noch einfacher, aber das hängt von Deiner Delphi-Version ab.
Zumindest ab D5 Pro kannst Du durch die Tastenkombination [STRG]+[SHIFT]+[C], wenn sich der Cursor innherhalb der Klassendeklaration auf einer der deklarierten Methoden befindet, die Methodenrümpfe automatisch erstellen lassen.

[Chegga]

Zitat:

Zitat von N47R0N

ich habe beim Compilieren eines Programmes diese fehlermeldung
bekommen:

Delphi-Quellcode:

.
.
.
[Fataler Fehler] SpyTrojan.dpr(7): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

SpyTrojan.dpr :gruebel:

:roll:

MfG Marc