Compilermeldungen

[jnaumann50]

Danke Sir Rufo

Hie die lesbarere Version

Delphi-Quellcode:

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                                       // COMPILERFEHLERMELDUNG undeklarierter Bezeichner SFOpenError

      Dest := FileCreate(Destination); { create output file; overwrite existing }
      if Dest < 0 then raise EFCreateError.Create(FmtLoadStr(SFCreateError, [Destination]));
      try                                     // COMPILERFEHLERMELDUNG 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);    //  COMPILERFEHLERMELDUNG 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');  //  COMPILERFEHLERMELDUNG Operator oder Semikolon fehlt

     (* HistList an Menü anhängen *)

     FileList.MenuItem := Datei;              //  COMPILERFEHLERMELDUNG Operator oder Semikolon fehlt

     (* CAN geschlossen *)
     CanAktiv := FALSE;

... some code

END;

[Sir Rufo]

Ich gebs auf ...

[Stevie]

Is scho schwer, Text zu markieren und auf den Helm zu klicken...

[Sir Rufo]

Zitat von Stevie:

Is scho schwer, Text zu markieren und auf den Helm zu klicken...

Den Knopf muss ja nun nicht unbedingt finden, aber wenn man den eigenen Beitrag nach dem Abschicken sich nochmals anschaut, dann sollte einem doch auffallen, dass der doch noch nicht so aussieht wie erwartet ... und dass sollte man schon verlangen können.

Reflektieren und der eigenen Arbeit kritisch gegenüberstehen ...

[blauweiss]

Hallo jnaumann50,

wenn ich es richtig überblicke, dürfte Dein Hauptproblem sein, daß (aus nicht ersichtlichem Grund) diese Zeile in Deinem Code auskommentiert ist:

//implementation Gruss,
blauweiss

[Bummi]

sieht aus als ob Ihr Auszüge aus der alten FmxUtils.pas noch verwendet, sonst müsste er bei HasAttr schon meckern.
Wenn Du Glück hast fehlt Dir nur RTLConsts in den Uses