訊息中排除"，"各取出值來

把它一段一段得分好~~

做出來了~但該如何在一段一段訊息後表示它代表的東西呢

procedure TForm1.Button1Click(Sender: TObject);
var tmp,t : string;
i,a : integer;
begin
t := edit1.Text;
for i := 1 to Length(t) do
begin
if t[i] = ',' then
begin
Memo1.Lines.Add(tmp);
tmp:='';
end;
if t[i] <> ',' then
begin
tmp := tmp t[i];
end;
end;
Memo1.Lines.Add(tmp);
end;

例如：
123 , 456 , 789

出來是

123 經度
456 緯度
789 檢查碼

該如何寫在程式裡讓值的解釋能直接從加在後面呢？？


初入Delphi努力研究的大學生

編輯記錄

程式如下

<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Button1Click(Sender: TObject); var tmp,t : string; i,a,j : integer; begin t := edit1.Text; j:=1; for i := 1 to Length(t) do begin if t[i] = ',' then begin if j=1 then tmp :=tmp ' 經度'; if j=2 then tmp :=tmp ' 緯度'; Memo1.Lines.Add(tmp); j:=j 1; tmp:=''; end else begin tmp := tmp t[i]; end; end; if j=3 then tmp :=tmp ' 檢查碼'; Memo1.Lines.Add(tmp); end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text:='123,456,789'; Memo1.Lines.Clear; end; </textarea>

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

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

初入Delphi努力研究的大學生arthur760119 你在別的貼未結案前,又發同樣性質貼,很容易讓人點痣做記號 想學會知識前請先學會尊重別人 ===================引 用 pcboy 文 章=================== 請不要一文多貼

另一種方法:
<textarea class="delphi" rows="10" cols="60" name="code"> var meanings :Array[0..2] of string; procedure TForm1.FormCreate(Sender: TObject); begin meanings[0]:= ' 經度'; meanings[1]:= ' 緯度'; meanings[2]:= ' 檢查碼'; end; procedure TForm1.Button1Click(Sender: TObject); var tmp,t : string; i,a : integer; begin t := edit1.Text; for i := 1 to Length(t) do begin if t[i] = ',' then begin Memo1.Lines.Add(tmp); tmp:=''; end; if t[i] <> ',' then begin tmp := tmp t[i]; end; end; Memo1.Lines.Add(tmp); for i:= Low(meanings) to High(meanings) do memo1.Lines.Strings[i] := memo1.Lines.Strings[i] meanings[i]; end; </textarea>

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL