請問各位大大~如果我今天想要將1加到n的運算過程及結果，用memo顯示出來，該如何做呢？
n是自己輸入的數~假如我輸入了6~然後希望memo能夠在第一行印出1 2=3，第二行印出1 2 3=6，第三行印出1 2 3 4=10......
以此類推~一直印到1 2 ... n~
請知道的大大教一下^^"

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='6';
Memo1.Clear;
Memo1.WordWrap := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k: Integer;
s : String;
ss : Integer;
begin
Memo1.Clear;
k:=2;
for i:=1 to StrToInt(Edit1.Text) do
begin
s := '1';
ss := 1;
for j:=2 to k do
begin
S := S ' ' IntToStr(j);
ss := ss j;
end;
k:= k 1;
s := s ' = ' IntToStr(ss);
Memo1.Lines.Add(s);
end;
end;
end.

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

Sorry !! pcboy2 大大！
PROCEDURE TFORM1.BUTTON1CLICK(SENDER: TOBJECT);
VAR
I,X,SM : INTEGER;
ST : STRING;
BEGIN
X := STRTOINT(EDIT1.TEXT);
MEMO1.LINES.CLEAR;
ST := '1';
SM := 1;
FOR I := 2 TO X DO
BEGIN
ST := ST ' ' INTTOSTR(I);
SM := SM I;
MEMO1.LINES.ADD(ST '=' INTTOSTR(SM));
END;
END;






Fishman

------
Fishman

呵 ~ 小弟還要再加油 ~

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！