Codeauszug:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, comobj, ExtCtrls, Menus, ComCtrls, ShellApi,
Printers, Gauges, jpeg;
type
TF_main =
class(TForm)
Button1: TButton;
gridinarbeit: TStringGrid;
...
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
SL : TStringlist;
public
{ Public-Deklarationen }
StringlistTabellen, Stringlist, Stringlist2 : Tstringlist;
StringlistTemp : TStringlist;
end;
procedure set_status(Anzeigetext :
String; Hinttext :
String);
procedure update_files_to_stringlist;
procedure load_tree_view;
var
F_main: TF_main;
global_param :
String;
…
farbliste : TStringlist;
//ComboBox-Einträge die zu färben sind
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, D7ComboBoxStringsGetPatch;
{$R *.dfm}
{TreeView laden und anzeigen}
procedure load_tree_view;
Die Unit1 ist die
Unit, in der sich die ComboBox befindet um die es geht.
Die
Unit hieß Unit7, weil ich über Datei->Neu->
Unit eine neue
Unit eingefügt habe, dann den Text mit dem aus der D7ComboBoxStringsGetPatch.pas Datei ersetzt habe und dann gespeichert hab. Nun heißt die Unit7 aber D7ComboBoxStringsGetPatch.
wenn ich auf ansicht->Units... gehe dann steht dort auch die D7ComboBoxStringsGetPatch gelistet.
Wie würde ich denn richtig eine
Unit in eine andere einbinden?