Wenn ich die Sourcen zum zweiten Teil mit Delphi 6 kompilieren will, bekomme ich folgende fehlermeldungen:
Code:
[Fehler] uFormMain.pas(88): Ausdruckstyp muß BOOLEAN sein
[Fehler] uFormMain.pas(94): Ausdruckstyp muß BOOLEAN sein
[Fehler] uFormMain.pas(100): Ausdruckstyp muß BOOLEAN sein
[Fehler] uFormMain.pas(112): Anweisung erwartet, aber 'PROCEDURE' gefunden
[Fehler] uFormMain.pas(39): Ungenügende Forward- oder External-Deklaration: 'TfrmMain.mnuFileCloseClick'
[Fehler] uFormMain.pas(43): Ungenügende Forward- oder External-Deklaration: 'TfrmMain.mnuEditCutClick'
[Fehler] uFormMain.pas(45): Ungenügende Forward- oder External-Deklaration: 'TfrmMain.mnuEditPasteClick'
[Fataler Fehler] ExtendableApp.dpr(10): Verwendete
Unit 'uFormMain.pas' kann nicht compiliert werden
Das wären diese Zeilen:
Delphi-Quellcode:
procedure TfrmMain.mnuEditCopyClick(Sender: TObject);
begin
if CurrentDocument <> nil then
if CurrentDocument.mmoDocument.CopyToClipboard;
end;
procedure TfrmMain.mnuEditCutClick(Sender: TObject);
begin
if CurrentDocument <> nil then
if CurrentDocument.mmoDocument.CutToClipboard;
end;
procedure TfrmMain.mnuEditPasteClick(Sender: TObject);
begin
if CurrentDocument <> nil then
if CurrentDocument.mmoDocument.PasteFromClipboard;
end;
Jeweils die zweite if-Bedingung.
Delphi-Quellcode:
procedure TfrmMain.mnuFileCloseClick(Sender: TObject);
begin
if CurrentDocument <> nil then
if CurrentDocument.CloseDocument then
ShowMessage('yes')
else
ShowMessage('no');
end;
procedure TfrmMain.mnuFileExitClick(Sender: TObject); // <- Zeile 112
begin
Close;
end;