Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Delphi一問....

0 views
Skip to first unread message

mm

unread,
Aug 19, 1999, 3:00:00 AM8/19/99
to
我如果在form裡加了一個edit component，edit text裡有兩個integers（例如20,30）
那我要如何將這兩個integers分別讀進來呢？

類似以下的程式....(turbo pascal)

program test;
var i,j:integer;
begin
read(i);
read(j);
end.


--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: sh44-66.dialup.seed.net.tw

Maggie Lee

unread,
Aug 20, 1999, 3:00:00 AM8/20/99
to
==> 在 Microw...@bbs.cs.nthu.edu.tw (mm) 的文章中提到:

> 我如果在form裡加了一個edit component，edit text裡有兩個integers（例如20,30）
> 那我要如何將這兩個integers分別讀進來呢？
> 類似以下的程式....(turbo pascal)
> program test;
> var i,j:integer;
> begin
> read(i);
> read(j);
> end.

GUI 與 Console Mode 程式是不一樣的, 用兩個 TEdit 元件讓使用者輸入,
再以 i:=StrToInt(Edit1.Text) ; j:=StrToInt(Edit2.Text); 來取得
i,j.
--
* Origin: ★ 交通大學資訊科學系 BBS ★ <bbs.cis.nctu.edu.tw: 140.113.23.3>

mm

unread,
Aug 20, 1999, 3:00:00 AM8/20/99
to
> GUI 與 Console Mode 程式是不一樣的, 用兩個 TEdit 元件讓使用者輸入,
> 再以 i:=StrToInt(Edit1.Text) ; j:=StrToInt(Edit2.Text); 來取得
> i,j.

如果堅持只能用一個TEdit 呢？
例如 20 30(中間以space分開，而兩數分別被讀進i,j)
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: sh45-152.dialup.seed.net.tw

微塵光影

unread,
Aug 22, 1999, 3:00:00 AM8/22/99
to
==> 在 Microw...@bbs.cs.nthu.edu.tw (mm) 的文章中提到:
> > GUI 與 Console Mode 程式是不一樣的, 用兩個 TEdit 元件讓使用者輸入,
> > 再以 i:=StrToInt(Edit1.Text) ; j:=StrToInt(Edit2.Text); 來取得
> > i,j.
> 如果堅持只能用一個TEdit 呢？
> 例如 20 30(中間以space分開，而兩數分別被讀進i,j)

有什麼理由一定只能用一個TEdit呢？？
如果真的堅持這麼做的話，那你可以用Pos 及 Copy
這兩個函式來幫忙擷取 substring。

0 new messages