請教 showMessage('no file found') error |
|
答題得分者是：william
|
|
rookie
一般會員   發表：26 回覆：38 積分：12 註冊：2003-04-23 發送簡訊給我 |
請教
如何使用ShowMessage() 我每次用都會出現這個Error 謝謝 [Warning] Unit2.pas(6): Unit 'FileCtrl' is specific to a platform
[Warning] Unit2.pas(6): Unit 'ShellCtrls' is specific to a platform
[Error] Unit2.pas(64): Undeclared identifier: 'showMessage'
[Fatal Error] Project3.dpr(6): Could not compile used unit 'Unit2.pas' unit Unit2; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ComCtrls, ExtCtrls, FileCtrl, ShellCtrls, Messages; type
TPagesDlg1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
OKBtn: TButton;
CancelBtn: TButton;
HelpBtn: TButton;
Edit1: TEdit;
DriveComboBox1: TDriveComboBox;
Label1: TLabel;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
Edit2: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure FileListBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
PagesDlg1: TPagesDlg1; implementation {$R *.dfm} procedure TPagesDlg1.FileListBox1Change(Sender: TObject); VAR FILENAME : STRING;
TF : TEXTFILE;
STR : STRING; begin
MEMO1.Lines.Clear;
Edit1.Text := SysUtils.GetCurrentDir;
FILENAME :=FileListBox1.FileName;
IF FileExists(FILENAME)= TRUE THEN
begin
AssignFile(TF,FILENAME);
RESET(TF);
While NOT EOF(TF) DO
BEGIN
READLN(TF,STR);
MEMO1.Lines.Add(STR);
End;
CloseFile(TF); END ELSE
begin
showMessage('no file found'); <<------- Error
end; end; end.
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
channel
尊榮會員 發表：67 回覆：707 積分：854 註冊：2002-05-02 發送簡訊給我 |
引言: 請教 如何使用ShowMessage() 我每次用都會出現這個Error 謝謝 [Warning] Unit2.pas(6): Unit 'FileCtrl' is specific to a platform [Warning] Unit2.pas(6): Unit 'ShellCtrls' is specific to a platform [Error] Unit2.pas(64): Undeclared identifier: 'showMessage' [Fatal Error] Project3.dpr(6): Could not compile used unit 'Unit2.pas' unit Unit2; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ComCtrls, ExtCtrls, FileCtrl, ShellCtrls, Messages, Dialogs; type TPagesDlg1 = class(TForm) Panel1: TPanel; Panel2: TPanel; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; OKBtn: TButton; CancelBtn: TButton; HelpBtn: TButton; Edit1: TEdit; DriveComboBox1: TDriveComboBox; Label1: TLabel; DirectoryListBox1: TDirectoryListBox; FileListBox1: TFileListBox; Edit2: TEdit; Button1: TButton; Memo1: TMemo; procedure FileListBox1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var PagesDlg1: TPagesDlg1; implementation {$R *.dfm} procedure TPagesDlg1.FileListBox1Change(Sender: TObject); VAR FILENAME : STRING; TF : TEXTFILE; STR : STRING; begin MEMO1.Lines.Clear; Edit1.Text := SysUtils.GetCurrentDir; FILENAME :=FileListBox1.FileName; IF FileExists(FILENAME)= TRUE THEN begin AssignFile(TF,FILENAME); RESET(TF); While NOT EOF(TF) DO BEGIN READLN(TF,STR); MEMO1.Lines.Add(STR); End; CloseFile(TF); END ELSE begin showMessage('no file found'); <<------- Error end; end; end.加上紅色的部份，應該就可以了...
------
~小弟淺見，參考看看~ |
|
rookie
一般會員 發表：26 回覆：38 積分：12 註冊：2003-04-23 發送簡訊給我 |
發表時間：2003-04-23 09:16:12
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-04-29 16:42:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |