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]