So, ich hab mal eine Frage!
Hab versucht was zu programmieren bzw. hab erstmal nur den Anfang von einem Blatt abgeschrieben
Aber als ich das ganze dann kompilieren wollte stand da :
"Fehler im Modul Unit1: RegisterClasses-Aufruf fehlt oder ist inkorrekt."
Hab mir jetzt auch schon verschiedene Hilfen durchgelesen und hab sie eingetippt, aber hat bis jetzt immer noch nichts funktioniert!
Hoffe, dass mir hier jemand schnell helfen kann, weil das ein Schulprojekt ist und ich das nächste Woche abgeben muss
So, hier noch ein kleiner Ausschnitt von dem Programm:
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:
| unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
IPGB: TGroupBox;
IPBytesE: TEdit;
NetzNrE: TEdit;
Label1: TLabel;
Label2: TLabel;
IPOKLedS: TShape;
WandleB: TButton;
Label3: TLabel;
Label4: TLabel;
procedure WandleBClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WandleBClick(Sender: TObject);
var i, NetzNr: Integer;
IPAdresse, S, S2, S3: String;
ok: Boolean;
begin
IPAdresse:= IPBytesE.Text;
S:= '';
NetzNr:= -1;
Label4.Caption:= '';
NetzNrE.Text:= '';
for i:= 1 to length(IPAdresse) do begin
if IPAdresse[i] <> '.' then S:= S+IPAdresse[i];
if ( IPAdresse[i]='.') or (i=length(IPAdresse)) then begin
NetzNr:=StrToIntDef(S, -1);
ok:= (0<=NetzNr) and (NetzNr < 256);
if ok then begin
if NetzNr <= 126 then begin
IPOkLedS.Brush.Color:=clLime;
NetzNrE.Text:= IntToStr(NetzNr);
Label4.Caption:= 'A';
end; |
Danke schonmal für Eure Hilfe
