利用讀入的檔案更動結果 |
尚未結案
|
akole8363498
一般會員 發表:1 回覆:4 積分:1 註冊:2006-12-04 發送簡訊給我 |
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
var
A, B, C: Integer; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.LoadFromFile('1.txt'); C := Memo1.Lines.Count-1; B := StrToInt(Memo1.Lines[C]); C := A B ; Memo1.Lines.Add(' A = A ' IntToStr(B) ' : ' IntToStr(C) ' = ' IntToStr(A) ' ' IntToStr(C) ); A := C; end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text:=IntToStr(A); Memo1.Text:='每次從1.txt讀取要加上的數字, 和 A 相加, 再存回A'; Memo1.Lines.Add('A = ' IntToStr(A) ); end;
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
akole8363498
一般會員 發表:1 回覆:4 積分:1 註冊:2006-12-04 發送簡訊給我 |
|
Coffee
版主 發表:31 回覆:878 積分:561 註冊:2006-11-15 發送簡訊給我 |
要自己寫Parser..但這似乎不是明智之舉..:P
光是四則運算加上括號還有負號你可能就得花點時間寫了..XD 可以參考Programming Language的Postfix方式才能確保運算式一定是由左向右運算(一般我們使用的表示式是中序,也就是運算子在運算元的兩側) 如果要加上if 之類的,就要建Parser Tree,要視你想要支援語法到什麼樣的程度 假設一個a * b / c * ( d e )的後序式就會是 a b * c / d e * 於是依照後序就會是讀進a, b 到*號時就運算出一個值,讀c到 /時就會將前面的運算值拿來除以c並得到一個結果值 再讀d , e到 號,會讀d, e這兩個值(以最靠近的運算值),來計算得到值之後又讀到*號,運算已存的兩個值得到結果 //話說計算機是我大學時的作業(遠目)
------
不論是否我發的文,在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處,以及讓答案可以被重複的使用,希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法,謝謝大家! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |