type
Ptr_CPC_MSG = ^CPC_MSG;
var
MainForm : TMAINForm;
professional : byte;
// Code für Freischaltung/Berechtigung (1-4)
projektOffen : Boolean;
// true, falls gerade ein Projekt geöffnet ist
MainIniPath :
String;
MyIni : TIniFile;
MyProjectIni : TIniFile;
zahl : Integer;
FileList : THistoryList;
IniPfad :
String;
PPfad :
String;
SpeicherPfad :
String;
CanHandle : Integer;
Time : Boolean;
MyMsgPtr : CPC_CAN_MSG;
MsgHandlePtr : Ptr_CPC_MSG;
Adress : Word;
AdressHelp :
String;
Fehler : Integer;
KnotenNr : Integer;
Format :
String;
CanAktiv : Boolean;
PASSWORT :
array [0..4]
of string;
//Passwörter für das Freischalten auf höhere Berechtigungen
//procedure scaleform ( TForm; w,h : boolean);
//implementation
{$R *.DFM}
uses About, ModDelete, EditModul, ParameterAll, newModul, warte, ProtUnit,
Folder_Unit, zusammenfassung, Passw, Freischalt, QuellView;
// Fehler Deklaration erwartet, aber Uses gefuden
{--------------------- erzeugen des Formulares -------------------------------}
{-----------------------------------------------------------------------------}
PROCEDURE MainMenue1(Sender: TObject);
// E2004 Bezeichner redefiniert
begin
end;
end;
{=============================================================================
CopyFile procedure found in the FMXUTILS.PAS file in Delphi\Demos\Doc\Filmanex
This is an example of copying a file using a buffer.
=============================================================================}
procedure CopyFile(
const FileName, DestName: TFileName);
var
CopyBuffer: Pointer;
{ buffer for copying }
TimeStamp, BytesCopied: Longint;
Source, Dest: Integer;
{ handles }
Destination: TFileName;
{ holder for expanded destination name }
const
ChunkSize: Longint = 8192;
{ copy in 8K chunks }
begin
Destination := ExpandFileName(DestName);
{ expand the destination path }
if HasAttr(Destination, faDirectory)
then { if destination is a directory... }
Destination := Destination + '
\' + ExtractFileName(FileName);
{ ...clone file name }
TimeStamp := FileAge(FileName);
{ get source's time stamp }
GetMem(CopyBuffer, ChunkSize);
{ allocate the buffer }
try
Source := FileOpen(FileName, fmShareDenyWrite);
{ open source file }
if Source < 0
then raise EFOpenError.Create(FmtLoadStr(SFOpenError, [FileName]));
try // undeklarierter Bezeichner SFOpenError
Dest := FileCreate(Destination);
{ create output file; overwrite existing }
if Dest < 0
then raise EFCreateError.Create(FmtLoadStr(SFCreateError, [Destination]));
try // undeklarierter Bezeichner SFCreateError
repeat
BytesCopied := FileRead(Source, CopyBuffer^, ChunkSize);
{ read chunk }
if BytesCopied > 0
then { if we read anything... }
FileWrite(Dest, CopyBuffer^, BytesCopied);
{ ...write chunk }
until BytesCopied < ChunkSize;
{ until we run out of chunks }
finally
FileClose(Dest);
{ close the destination file }
end;
finally
FileClose(Source);
{ close the source file }
end;
finally
FreeMem(CopyBuffer, ChunkSize);
{ free the buffer }
end;
end;
PROCEDURE TMainForm.FormCreate(Sender: TObject);
// E2009 ; erwartet aber . gefunden
var pw :
file;
i, z : integer;
laenge : byte;
BEGIN
(* Variable mit Pfad der Anwendung initialisieren *)
MainIniPath := ExtractFilePath(ParamStr(0));
(* Variable mit der AnwendungsDatei initialisieren *)
IniPfad := MainForm.MainIniPath + '
MDI-Haupt.ini';
(* Instanz einer IniDatei erzeugen *)
MyIni := TIniFile.Create (IniPfad);
(* Hilfshinweise aktivieren *)
Application.OnHint := ShowHint;
(* Instanz einer HistList erzeugen *)
FileList := THistoryList.Create ;
(* HistList aus IniDatei lesen *)
FileList.LoadFromIni (IniPfad,'
Files');
// Operator oder Semikolon fehlt
(* HistList an Menü anhängen *)
FileList.MenuItem := Datei;
// Operator oder Semikolon fehlt