小弟剛開始從Delphy 轉BCB ，這程式是我之前寫的，請懂Delphy 也熟悉BCB 的老師們幫我把以下程式轉成BCB的格式

[code delphi]
procedure TForm1.bit_tClick(Sender: TObject);
var
TF:TEXTFILE;
STR,tmp_cno,tmp_wd,tmp_file:STRING;
a:integer;
begin
tmp_file:=FileListBox1.FileName;
tmp_file:=ExtractFileExt(tmp_file);
if (ExtractFileExt(TMP_FILE) <> '.TXT') then
begin
showmessage('所選擇的檔案不是TXT文字檔');
bit_c.Click;
abort;
end;
bit_t.Enabled:=false;
bit_s.Enabled:=true;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from reqinvm where rvm_cno=:rvm_cno');
adoquery1.Parameters.ParamByName('rvm_cno').Value:='zzzz';
adoquery1.ExecSQL;
adoquery1.Open;
cds1.Open;
memo1.Lines.Clear;
assignFile(TF,FileListBox1. FileName);
reset(TF);
while not eof(TF) do
begin
cds1.Append;
cds1.Edit;
readln(TF,str);
if trim(str) <> '' then
begin
a:=0;
Memo1.Lines.Add(str);
if copy(str,1,8)='廠商代號' then tmp_cno:=copy(str,11,4)
else
begin
cds1['rvm_cno']:=tmp_cno;
cds1['rvm_day']:=copy(str,1,8);
cds1['rvm_po']:=copy(str,10,8);
cds1['rvm_ino']:=copy(str,22,10);
cds1['rvm_inm']:=copy(str,33,20);
cds1['rvm_unit']:=trim(copy(str,54,4));
tmp_wd:=copy(str,59,8);
if copy(tmp_wd,3,1)=',' then
begin
tmp_wd:=copy(tmp_wd,1,2) copy(tmp_wd,4,5);
end;
cds1['rvm_tqty']:=strtofloat(trim(tmp_wd));
tmp_wd:=copy(str,68,8);
if copy(tmp_wd,3,1)=',' then
begin
tmp_wd:=copy(tmp_wd,1,2) copy(tmp_wd,4,5);
end;
cds1['rvm_iqty']:=strtofloat(trim(tmp_wd));
tmp_wd:=copy(str,77,8);
if copy(tmp_wd,3,1)=',' then
begin
tmp_wd:=copy(tmp_wd,1,2) copy(tmp_wd,4,5);
end;
cds1['rvm_mqty']:=strtofloat(trim(tmp_wd));
end;
end;
end;
closefile(TF);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoquery1.Close;
cds1.Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.Clear;
bit_s.Enabled:=false;
end;
procedure TForm1.bit_sClick(Sender: TObject);
begin
if messagedlg('您確定要存檔嗎?',mtinformation,[mbyes,mbno],0)=mryes then
cds1.ApplyUpdates(-1);
bit_c.Click;
end;
procedure TForm1.bit_cClick(Sender: TObject);
begin
adoquery1.Close;
cds1.Close;
dbgrid1.Refresh;
bit_s.Enabled:=false;
bit_t.Enabled:=true;
memo1.Lines.Clear;
end;
end.
[/code]

先嘗試自己轉看看吧,有問題的地方在PO出來讓前輩們幫您看看問題再哪

Delphi? Delphy? 傻傻分不清楚?

哈哈~真是抱歉，真的打錯了XD
嗯嗯~我已經在試著轉了，因為才剛學第三天~"~
只看得懂一些基本語法~就剩下Bit_click觸發的事件了
就剩下這一些，因為有些語法BCB跟Delphi 不同
以下程式碼給您看看~謝謝指導^^

[code delphi]
procedure TForm1.bit_tClick(Sender: TObject);
var
TF:TEXTFILE;
STR,tmp_cno,tmp_wd,tmp_file:STRING;
a:integer;
begin
tmp_file:=FileListBox1.FileName;
tmp_file:=ExtractFileExt(tmp_file);
if (ExtractFileExt(TMP_FILE) <> '.TXT') then
begin
showmessage('所選擇的檔案不是TXT文字檔');
bit_c.Click;
abort;
end;
bit_t.Enabled:=false;
bit_s.Enabled:=true;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from reqinvm where rvm_cno=:rvm_cno');
adoquery1.Parameters.ParamByName('rvm_cno').Value:='zzzz';
adoquery1.ExecSQL;
adoquery1.Open;
cds1.Open;
memo1.Lines.Clear;
assignFile(TF,FileListBox1. FileName);
reset(TF);
while not eof(TF) do
begin
cds1.Append;
cds1.Edit;
readln(TF,str);
if trim(str) <> '' then
begin
a:=0;
Memo1.Lines.Add(str);
if copy(str,1,8)='廠商代號' then tmp_cno:=copy(str,11,4)
else
begin
cds1['rvm_cno']:=tmp_cno;
cds1['rvm_day']:=copy(str,1,8);
cds1['rvm_po']:=copy(str,10,8);
cds1['rvm_ino']:=copy(str,22,10);
cds1['rvm_inm']:=copy(str,33,20);
cds1['rvm_unit']:=trim(copy(str,54,4));
tmp_wd:=copy(str,59,8);
if copy(tmp_wd,3,1)=',' then
begin
tmp_wd:=copy(tmp_wd,1,2) copy(tmp_wd,4,5);
end;
cds1['rvm_tqty']:=strtofloat(trim(tmp_wd));
tmp_wd:=copy(str,68,8);
if copy(tmp_wd,3,1)=',' then
begin
tmp_wd:=copy(tmp_wd,1,2) copy(tmp_wd,4,5);
end;
cds1['rvm_iqty']:=strtofloat(trim(tmp_wd));
tmp_wd:=copy(str,77,8);
if copy(tmp_wd,3,1)=',' then
begin
tmp_wd:=copy(tmp_wd,1,2) copy(tmp_wd,4,5);
end;
cds1['rvm_mqty']:=strtofloat(trim(tmp_wd));
end;
end;
end;
closefile(TF);
end;
[/code]

===================引 用 taishyang 文 章===================
先嘗試自己轉看看吧,有問題的地方在PO出來讓前輩們幫您看看問題再哪

Delphi? Delphy? 傻傻分不清楚?

像類似AssignFile ,  Reset  裡面等等的一些都跟C++的不一樣呢

我訂的兩本書還要一天才到ˊˋ

你提到的這兩個function應該是自訂的function

===================引 用 zoezoe 文 章===================
像類似AssignFile , Reset 裡面等等的一些都跟C 的不一樣呢

我訂的兩本書還要一天才到ˊˋ

因為在Delphi是可以直接下的，C++的話好像就要自訂了沒錯!因為不能直接下語法

沒有書在身邊真的有夠難搞的= ="

就剩下中間那邊轉檔入Table 的語法了!~我的天啊
===================引 用 taishyang 文 章===================
你提到的這兩個function應該是自訂的function

===================引 用 zoezoe 文 章===================
像類似AssignFile , Reset 裡面等等的一些都跟C 的不一樣呢

我訂的兩本書還要一天才到ˊˋ

編輯記錄

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.