Code zu lang -> 2. Unit ??

[shareholder]

Hi Ihr Delphianer,

Mir ist der Code in der 1. unit zu lang geworden und deshalb
habe ich eine neue Unit eingefügt.

Einen Teil des Codes habe ich von der mainUnit übernommen,
aber nun kommt andauert diese fehlermeldung:

Undefinierter Bezeichner : blabla01
Undefinierter Bezeichner : blabla02
Undefinierter Bezeichner : blabla03
.
.
.
etc.

und so sieht meine 2. unit aus:

Delphi-Quellcode:

unit meineunit2;

interface
  procedure MeinProzedure;

implementation

// hier dann mein Code
 procedure MeinProzedure;
 begin
 ...
end.

kann mir bitte jmd helfen? danke!

[fkerber]

Hi!

Erläuterst du uns das blablabla etwas näher?
Evtl. hast du vergessen ein paar globale Variablen zu definieren oder (wahrscheinlicher)ein paar Units nicht mehr unter Uses eingebunden.

Ciao fkerber

[Mirilin]

:hi:

Hast Du die nötigen Units eingebunden?

mfg Tobias

[shareholder]

in die unit2 habe ich jetzt

Delphi-Quellcode:

uses MainUnit;

geschrieben

aber der compiler meldet nun in meiner prozedur:

Delphi-Quellcode:

procedure LVExtsDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

Undefinierter Bezeichner: TDragState

der code

Delphi-Quellcode:

unit unit2;

interface

  procedure Starten;
  procedure LVExtsDragOver(Sender, Source: TObject; X, Y: Integer;
            State: TDragState; var Accept: Boolean);

implementation

uses untMain;

procedure Starten;
var reg : TRegistry;
    keys : TStringList;
.
.
.

[Mirilin]

:hi:

TDragState + F1 -> ComCtrls

mfg Tobias

[alcaeus]

Binde die Unit ComCtrls ein, und btw, in der OH steht in welcher Unit ein Befehl/Typ definiert ist.

[fkerber]

Hi!

Du musst oben bei den Uses z.B. mal noch ComCtrls eintragen. (Nicht da wo jetzt MainUnit steht) sondern bei den oberen Units(die dir ganz fehlen). Schau mal in der anderen Unit nach.

Ciao fkerber

[shareholder]

in der MainUnit habe ich uses ComCtrls; schon drin stehen.

wenn ich uses ComCtrls; in die Unit2 eintrage, kommt der gleiche Fehler. :(

Delphi-Quellcode:

uses MainUnit, ComCtrls;

:wall:

[Mirilin]

:hi:

Steht die
uses unter interface oder implementation ?
versuchs mal unter interface...

mfg Tobias

[fkerber]

Hi!

Wie ich bereits sagte

Nicht da wo jetzt MainUnit steht

Delphi-Quellcode:

unit unit2;

interface

//==> HIER
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

  procedure Starten;
  procedure LVExtsDragOver(Sender, Source: TObject; X, Y: Integer;
            State: TDragState; var Accept: Boolean);

implementation

uses untMain;

procedure Starten;
var reg : TRegistry;
    keys : TStringList;
.
.
.

Ciao fkerber

[shareholder]

1. Frage
Ist es nicht möglich, das ich einfach nur die uses in MainUnit definiere ?
(ich habe ja Unit2 der untMain zugewiesen :gruebel:)

2. Frage
Ich bekomme in Unit2 immer den Fehler
Undefinierter Bezeichner: ListView1

wenn ich Form1.Listview1 daraus mache funzt es.
normal ?

edit: ich habe es so gemacht, wie fkerber es geschrieben hat. :)

[alcaeus]

Ja, denn du must explizit sagen, dass du mit ListView1 jene Listview meinst, welche auf Form1 platziert ist. Wenn du in der jeweiligen Unit arbeitest, so arbeitest du normalerweise in Funktionen, die zur Klasse TForm1 gehören, genauso wie ListView1. Feshalb brauchst du das in dem Fall nicht explizit angeben.

[fkerber]

Hi!

1. Frage:
Nein, das muss so sein.


2. Frage:
Ja, ist ok. Du hast ja Listview1 auch in Unit1 (oder wie die bei dir heißt, also die zu Form1 gehörende Unit) definiert. Schau mal ganz oben in dieser Unit nach, dann findest du das.

Ciao fkerber

[shareholder]

muss ich dann

Delphi-Quellcode:

with Form1 do
...
end;

in jede Prozedur schreiben,

oder kann ich das auch leicher im Header definieren ?

[fkerber]

Hi!

Du müsstest das in deinem Fall wohl immer davor schreiben.
Hier wäre dann der Punkt zu überlegen, ob die Aufteilung sinnvoll ist.

Normalerweise lagert man in eine separate Unit wohl nur in sich abgeschlossene Funktionen etc. aus, die nur einem Aufruf mit entsprechenden Parametern brauchen.

Deine Aufteilung ist wohl mehr eine Arbeitserschwerung als -erleichterung.


Ciao fkerber

[shareholder]

jau, ich merk das schon ! :mrgreen:

ok, danke euch allen! :thuimb:

habt mir sehr geholfen. :)

[alcaeus]

Nur mal als blöde Frage... Wieso ist der Code in der Unit1 zu lang? Mit Hilfe des Code-Explorers und evtl. TODO-Einträgen müsste ja alles gehen,oder? Du hast ja D7 Ent, da gibts die TODO-Liste auch.

[shareholder]

ok, hab wieder alles rückgängig gemacht !

arbeite jetzt mal intensiver mit dem code-explorer.
scheint ja sehr nützlich zu sein. *g*

DANKE