Position 使用出現error |
|
尚未結案
|
|
tommylitang
一般會員   發表：12 回覆：0 積分：2 註冊：2004-12-12 發送簡訊給我 |
var
...
Position: array[1..30, 1..3] of integer
...
implementation
...
procedure TForm1.FormCreate(Sender: TObject);
var
DataFile: textfile;
Temp: string;
...
begin
try
AssignFile(DataFile, OpenDialog1.FileName);
ReSet(DataFile);
While Not Eof(DataFile) do
begin
Readln(DataFile, Temp);
Position[1,1]:=Temp; <-- 為何有Error?
end;
CloseFile(DataFile);
except
MessageDlg('Error',mtWarning,[mbOK],0);
end;
...
end;
...
|
|
Zard
尊榮會員  發表：24 回覆：396 積分：539 註冊：2003-11-26 發送簡訊給我 |
引言: var ... Position: array[1..30, 1..3] of integer ... implementation ... procedure TForm1.FormCreate(Sender: TObject); var DataFile: textfile; Temp: string; ... begin try AssignFile(DataFile, OpenDialog1.FileName); ReSet(DataFile); While Not Eof(DataFile) do begin Readln(DataFile, Temp); Position[1,1]:=Temp; <-- 為何有Error? end; CloseFile(DataFile); except MessageDlg('Error',mtWarning,[mbOK],0); end; ... end; ...因為Position[1,1]型態為integer, temp型態為string, 兩個型態不同所以會錯. 若你要把string轉為integer要這樣改 Position[1, 1] := StrToInt(Temp); |
發表時間：2004-12-19 13:18:22
IP:219.78.xxx.xxx 未訂閱
系統時間：2024-05-22 6:38:50
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |