線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:660
推到 Plurk!
推到 Facebook!

一個Memo1的問題

尚未結案
load
一般會員


發表:13
回覆:7
積分:4
註冊:2003-12-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-18 15:48:28 IP:218.174.xxx.xxx 未訂閱
各位前輩好,小弟最近遇上一個問題 我寫了一個小程式想要計算兩個百位數的數值相加,最後我用了字串陣列來接值,打個比方,我在Edit1輸入123Edit2輸入789,出現的會是 0 9 1 2 (1)我想把我想讓他變成橫的輸出 (2)我想把最前面的零去掉。    請教各位,以上有什麼例子可解決。 以下是我的程式碼,目前我還沒測到100位 只是簡單的數值來測試
int a=StrToInt(Edit1->Text.Length());
    int b=StrToInt(Edit2->Text.Length());
    Label1->Caption=a;
    Label2->Caption=b;
    int st1[110]={0};
    int st2[110]={0};
    int st3[110]={0};
    int a1=a;
    int b1=b;
    int x;
    for(int i=1;i<=a;i  )
    {
        st1[i]=StrToInt(Edit1->Text.SubString(a1,1));
        a1--;
    }
    for(int j=1;j<=b;j  )
    {
        st2[j]=StrToInt(Edit2->Text.SubString(b1,1));
        b1--;
    }
    if(a>b)
    {
        x=a;
    }
    else
    {
        x=b;
    }        for(int y=1;y<=x;y  )
    {
        st3[y]=((st3[y]) (st1[y]) (st2[y]));
        if(st3[y]>10)
        {
            st3[y]=st3[y]-10;
            st3[y 1]=st3[y 1] 1;
        }
    }        for(int z=x 1;z>=1;z--)
    {            if(st3[x 1]==0)
        {
            //Memo1->Text="1234";
        }
        else
        {
            Memo1->Lines->Add(st3[z]);
        }
    }
cwh
一般會員


發表:4
回覆:9
積分:2
註冊:2002-10-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-18 22:38:38 IP:211.76.xxx.xxx 未訂閱
試試看這是不是你要的 Memo1->Lines->Add( IntToStr(Edit1->Text.ToInt() Edit2->Text.ToInt() ));
系統時間:2024-05-18 14:31:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!