請教:
我有一個字串是:1234567-abcdef ==>這字串是隨機產生的!!!
及一個edit要顯示出1234567
另一個edit要顯示出abcdef
並把 '-' 刪除掉~
請問這要如何設計呢?!
感恩~

編輯記錄

您好,

方法很多種
1. 判斷 '-' 所在的位置
II := POS('-', ASTR);
IF II>0 THEN BEGIN
EDIT1.TEXT := COPY(ASTR, 1,II-1);
EDIT2.TEXT := COPY(ASTR, II 1, LENGTH(ASTR)); // 第三個參數可以比較精確, 但我都偷懶用此法, 或直接下一個很大的整數
END;
如果 - 在固定位置, 就可以不寫 II := POS('-', ASTR); 這一段, 直接寫 II := 8; 或直接將數值寫在 COPY(...) 中

2. 用 TSTRINGLIST 切, 但是這一題只有一個 '-' 好像沒比較快.

若分割字元不固定是 '-', 那又是 another story 了

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

嗯 問題已經解決了～～
謝謝你嚕～

二樓說到的方法是ok的,不過copy會比delete慢

i := pos('-', str);
edit1.text := copy(str,1,i-1);
delete(str,1,i-1);
edit2.text := astr;



ps.如果"-"前面字串的長度是固定會更快 (i直接代入)

編輯記錄

 另一種做法, 謹供參考

[code delphi]
I := Pos('-',str);
if I > 0 then
begin
str[I] := #0;
Edit1.Text := PChar(str);
Edit2.Text := PChar(@str[I 1]);
end;
[/code]