Einzelnen Beitrag anzeigen

Benutzerbild von Cine
Cine

Registriert seit: 18. Okt 2003
Ort: Stuttgart
5 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Editfeld in anderer Form anteuern..??

  Alt 19. Okt 2003, 14:52
Danke the_master....

Aber dann kommt folgende Fehlermeldung:

[Warnung] speicherort.pas(8): Unit 'FileCtrl' ist plattformspezifisch
[Fehler] DURechner.pas(7): Bezeichner redefiniert: 'Classes'
[Fehler] DURechner.pas(7): Bezeichner redefiniert: 'Controls'
[Fehler] DURechner.pas(8): Bezeichner redefiniert: 'StdCtrls'
[Fehler] DURechner.pas(8): Bezeichner redefiniert: 'Menus'
[Fehler] DURechner.pas(121): Bezeichner redefiniert: 'speicherort'
[Fehler] DURechner.pas(121): Bezeichner redefiniert: 'StdCtrls'
[Fehler] DURechner.pas(121): Bezeichner redefiniert: 'Classes'
[Fataler Fehler] speicherort.pas(38): Verwendete Unit 'DURechner' kann nicht compiliert werden

----------------------------------------------------------------------------------------------------------Also, die DURechner, schaut jetzt so aus:
Delphi-Quellcode:
unit DURechner;

interface
uses speicherort, Menus, StdCtrls, Controls, Classes;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Inifiles, Menus;

.
.
.
-----------------------------
Und die speicherort, folgendermaßen:
Delphi-Quellcode:
unit speicherort;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

const
  SELDIRHELP = 1000;

type
  Tsp_ort = class(TForm)
    b_dir: TButton;
    e_path: TEdit;
    e_filename: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure b_dirClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  sp_ort: Tsp_ort;
  ch_dir: string;
  ch_file: string;
  ini_store: string;

implementation
uses DURechner;


{$R *.dfm}

.
.
.
------------------------------------------------
Was ist jetzt falsch ??

Mfg, vielen Dank...
Thomas F.

[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]
YES MEANS NO AND NO MEANS YES. DELETE ALL FILES ? [N]
  Mit Zitat antworten Zitat