Vier gewinnt

[tüftelboy]

ich habe ja noch nicht mal einen code das ist ja das problem obwohl wenn ich die unit mit unit 2 verknpfen will funkt das nict hier der code
unit Unit2;


interface
uses
unit1, unit2;


implementation
uses
unitA, unitB, unitC, unitE;
begin

end.

[rollstuhlfahrer]

Punkt 1: Es gibt DELPHI-Tags für Delphi-Code (dass das nach was aussieht).

Punkt 2: Du kannst nicht in einer Unit ein Uses auf die selbe Unit machen (Unit2 benötigt Unit2 geht NICHT).

Punkt 3: Man kann Namen vergeben, sodass man ungefähr weiß, wo was passiert wird.

Bernhard

[tüftelboy]

das heißt?
also kommt im quellcode kein unit 2 vor aber unitB?
unit2 soll ja nur auf unit1 zugreifen

[tüftelboy]

und was für ein initaliersierungscode kommt zw begin und end?

[alfold]

Hier mal ein Beispiel: Unit1 = Deine MainForm = Hauptformular

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)


 private

 public

 end;

var 
  Form1: TForm1;


implementation

{$R *.DFM}

uses Unit2;//<-- hier Deine unit2 einbinden


end.

wenn Du Daten oder anderes aus der Unit2 in deiner MainForm = Unit1 brauchst!

Aber wie gesagt, ich befürchte das es dazu kommt das wir den Grundlagenkurs durchführen. Das sollte aber in der Schule passieren und nicht hier

Gruss alfold

[alfold]

Zitat von tüftelboy:

und was für ein initaliersierungscode kommt zw begin und end?

Um zu zeigen das wir alle nett sind
Starte einfach Delphi neu.
Lege mal 1,2 Button und einen Label und ein Edit auf deine Form!
Doppelklick auf den 1. Button und schon steht sowas da:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObjekt);
begin
   //hier kanst Du nun folgendes reinschreiben
   Label1.Caption:= 'Dies ist mein erster Code';
end;

Dann auf start oder F9 und schau was passiert!
Experementiere nun mit den anderen Komponenten. Schau in die Hilfe von Delphi und auf den Objektinspektor/Ereignisse
In der Hilfe gibt es gute und einfache Beispiel!

Gruss alfold

[tüftelboy]

hallo leute mittlerweile hab ich das programm soweit das ich die panels und über dem panel jeweils 2 button habe um die kästchen auszufüllen
ich kann auch schon auf ein button klicken und es wird das panel ausgefüllt nur weiß ich leider nicht weiter
ich bitte um hilfe
interface

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
Panel13: TPanel;
Panel14: TPanel;
Panel15: TPanel;
Panel16: TPanel;
Panel17: TPanel;
Panel18: TPanel;
Panel19: TPanel;
Panel20: TPanel;
Panel21: TPanel;
Panel22: TPanel;
Panel23: TPanel;
Panel24: TPanel;
Panel25: TPanel;
Panel26: TPanel;
Panel27: TPanel;
Panel28: TPanel;
Panel29: TPanel;
Panel30: TPanel;
Panel31: TPanel;
Panel32: TPanel;
Panel33: TPanel;
Panel34: TPanel;
Panel35: TPanel;
Panel36: TPanel;
Panel37: TPanel;
Panel38: TPanel;
Panel39: TPanel;
Panel40: TPanel;
Panel41: TPanel;
Panel42: TPanel;
Panel43: TPanel;
Panel44: TPanel;
Panel45: TPanel;
Panel46: TPanel;
Panel47: TPanel;
Panel48: TPanel;
Panel49: TPanel;
Panel50: TPanel;
Panel51: TPanel;
Panel52: TPanel;
Panel53: TPanel;
Panel54: TPanel;
Panel55: TPanel;
Panel56: TPanel;
Panel57: TPanel;
Panel58: TPanel;
Panel59: TPanel;
Panel60: TPanel;
Panel61: TPanel;
Panel62: TPanel;
Panel63: TPanel;
Panel64: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
a1,a2,a3,a4,a5,a6,a7,a8:integer;
implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible:=False;
Button2.Visible:=True;
Button3.Visible:=False;
Button4.Visible:=True;
Button5.Visible:=False;
Button6.Visible:=True;
Button7.Visible:=False;
Button8.Visible:=True;
Button9.Visible:=False;
Button10.Visible:=True;
Button11.Visible:=False;
Button12.Visible:=True;
Button13.Visible:=False;
Button14.Visible:=True;
Button15.Visible:=False;
Button16.Visible:=True;
begin
if a8=0 then a8:=1 else
if a7=0 then a7:=1 else
if a6=0 then a6:=1 else
if a5=0 then a5:=1 else
if a4=0 then a4:=1 else
if a3=0 then a3:=1 else
if a2=0 then a2:=1 else
if a1=0 then a1:=1
end;
begin
if a8=1 then Panel8.Color:=clgreen;
if a7=1 then Panel7.Color:=clgreen;
if a6=1 then Panel6.Color:=clgreen;
if a5=1 then Panel5.Color:=clgreen;
if a4=1 then Panel4.Color:=clgreen;
if a3=1 then Panel3.Color:=clgreen;
if a2=1 then Panel2.Color:=clgreen;
if a1=1 then Panel1.Color:=clgreen;
end;
end;
end.

[DeddyH]

Und was ist jetzt Deine Frage. Übrigens: benutze doch bitte Delphi-Tags, das wurde bereits gesagt. Und eine vernünftige Benennung Deiner Komponenten könnte auch nicht schaden.

[rollstuhlfahrer]

Zitat von tüftelboy:

Delphi-Quellcode:

unit Unit2; // <-- Da sind wir!


interface
uses
unit1, unit2;  // <-- und diese beiden binden wir ein. (siehe 3 Zeilen vorher, da haben wir doch den gleichen Namen)

[...]

Bernhard

ADD:

Zitat von tüftelboy:

und was für ein initaliersierungscode kommt zw begin und end?

Und wo kommt das jetzt wieder her? Du hast gerade mal eine leere Unit und willst jetzt einen Init-Code wissen. Woher sollen wir den jetzt wissen?