全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1289
推到 Plurk!
推到 Facebook!

請問以下VB語法如何改寫成DELPHI?

答題得分者是:pedro
ATEIN
高階會員


發表:105
回覆:320
積分:125
註冊:2002-07-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-04-11 23:06:55 IP:219.84.xxx.xxx 訂閱
 BUF = BUF + a
Do
strPosn= InStr(1, BUF, Chr(10))
If strPosn= 0 Then
Exit Do
Else
Read = Left(BUF, strPosn- 4)
BUF = Right(BUF, Len(BUF) - InStr(1, BUF, Chr(10)))
Show.Caption = Trim(Val(Trim(Right(Read, 8))))

End If
End If
Loop

有勞前輩轉換成DELPHI語法了...感謝了..
------
ATEIN
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-04-12 09:19:31 IP:60.248.xxx.xxx 未訂閱
Hi

依你的VB碼,在Delphi差不多的概念如下,沒有實際驗証過,你可能自己試試及調整

[code delphi]
uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
const
c:string=#10;
var
BUF,a,Read:string;
strPosn:Integer;
begin
BUF:= BUF a;
repeat
strPosn:=Pos(Buf,c);
If strPosn= 0 Then
break
else
begin
Read:= LeftStr(BUF, strPosn-4);
BUF:= RightStr(BUF, Length(BUF) - Pos(BUF,c));
Show.Caption := Trim(RightStr(Read, 8));
end;
until 1=1;
end;
[/code]


===================引 用 ATEIN 文 章===================
BUF = BUF a
Do
strPosn= InStr(1, BUF, Chr(10))
If strPosn= 0 Then
Exit Do
Else
Read = Left(BUF, strPosn- 4)
BUF = Right(BUF, Len(BUF) - InStr(1, BUF, Chr(10)))
Show.Caption = Trim(Val(Trim(Right(Read, 8))))

End If
End If
Loop

有勞前輩轉換成DELPHI語法了...感謝了..
ATEIN
高階會員


發表:105
回覆:320
積分:125
註冊:2002-07-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-04-14 04:56:57 IP:219.84.xxx.xxx 訂閱
..謝謝您,沒問題了...先結案了...3Q
------
ATEIN
編輯記錄
ATEIN 重新編輯於 2011-04-13 14:57:44, 註解 無‧
ATEIN 重新編輯於 2011-04-13 17:38:01, 註解 無‧
ATEIN 重新編輯於 2011-04-13 17:39:13, 註解 無‧
系統時間:2024-03-29 13:53:49
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!