請問大大如何把此程式改成BCB的程式呢?? |
|
尚未結案
|
|
jjkk86
一般會員   發表：8 回覆：6 積分：2 註冊：2005-01-02 發送簡訊給我 |
請問大大,我是BCB的新手,請問如何把此VB的程式改成BCB的程式呢??這是一個我寫的讀取TXT檔裡的程式,把TXT裡的資料讀取出來之後將這些資料顯示出來 ---TXT檔如下-------------------------------------------
AO-10
1 14129U 83058B 02022.99297787 -.00000144 00000-0 10000-3 0 08594
2 14129 025.9725 231.4179 6063850 218.5945 076.6418 02.05869739139978
-------------------------------------------------------------------- ----VB的程式如下------------------
Private Sub Command1_Click()
Dim intI As Integer
Dim strElem(3) As String
Dim intFile As Integer
Dim strStName As String, dblStElem(10) As Double, lngStRev As Long intFile = FreeFile
Open "ELEM.TXT" For Input As #intFile For intI = 1 To 3
Line Input #intFile, strElem(intI)
Next intI strStName = Trim(strElem(1))
dblStElem(1) = Val(Mid$(strElem(2), 19, 2)) + 2000
dblStElem(2) = Val(Mid$(strElem(2), 21, 12))
dblStElem(3) = Val(Mid$(strElem(3), 9, 8))
dblStElem(4) = Val(Mid$(strElem(3), 18, 8))
dblStElem(5) = Val("0." + Mid$(strElem(3), 27, 7))
dblStElem(6) = Val(Mid$(strElem(3), 35, 8))
dblStElem(7) = Val(Mid$(strElem(3), 44, 8))
dblStElem(8) = Val(Mid$(strElem(3), 53, 11))
dblStElem(9) = Val(Mid$(strElem(2), 34, 10))
lngStRev = Val(Mid$(strElem(3), 64, 5)) Close Cls
Print strStName
Print dblStElem(1)
Print dblStElem(2)
Print dblStElem(3)
Print dblStElem(4)
Print dblStElem(5)
Print dblStElem(6)
Print dblStElem(7)
Print dblStElem(8)
Print dblStElem(9)
Print lngStRev End Sub ----------------------------------------------------------------
執行結果如下
|
|
andychang1690
資深會員  發表：20 回覆：694 積分：442 註冊：2003-03-14 發送簡訊給我 |
|
|
RedSnow
版主 發表：79 回覆：1322 積分：845 註冊：2003-12-15 發送簡訊給我 |
jjkk86 您好： 因為並不知道您是否有其它環境上的限制或是特殊的需求？因此我以達到目的為原則，將您貼上來的 VB 程式改寫成 BCB 的範例程式：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString strStName;
double dblStElem[10];
long lngStRev;
TStringList *strElem = new TStringList; strElem->LoadFromFile("ELEM.txt"); strStName = strElem->Strings[0].Trim();
dblStElem[0] = StrToFloat(strElem->Strings[1].SubString(19, 2)) 2000;
dblStElem[1] = StrToFloat(strElem->Strings[1].SubString( 21, 12));
dblStElem[2] = StrToFloat(strElem->Strings[2].SubString( 9, 8));
dblStElem[3] = StrToFloat(strElem->Strings[2].SubString( 18, 8));
dblStElem[4] = StrToFloat("0." strElem->Strings[2].SubString( 27, 7));
dblStElem[5] = StrToFloat(strElem->Strings[2].SubString( 35, 8));
dblStElem[6] = StrToFloat(strElem->Strings[2].SubString( 44, 8));
dblStElem[7] = StrToFloat(strElem->Strings[2].SubString( 53, 11));
dblStElem[8] = StrToFloat(strElem->Strings[1].SubString( 34, 10));
lngStRev = StrToFloat(strElem->Strings[2].SubString( 64, 5));
delete strElem; Memo1->Lines->Clear();
Memo1->Lines->Add(strStName); for(int i=0; i<9; i ){
Memo1->Lines->Add(dblStElem[i]);
} Memo1->Lines->Add(lngStRev);
}BCB 與 VB 之間的特性與差異都蠻大的，請仔細比對一下，以便瞭解其異同之處，希望以上範例對您的學習會有幫助。
|
發表時間：2005-06-05 00:27:32
IP:58.99.xxx.xxx 未訂閱
系統時間：2024-11-23 13:26:15
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |