請教各位先進: 若有一字串 'A1=500',若想取得等號後的數值 500 有什麼比較好的方法嗎?? 謝謝指教!!

引言: 請教各位先進: 若有一字串 'A1=500',若想取得等號後的數值 500 有什麼比較好的方法嗎?? 謝謝指教!!

str1 := 'A1=500'; str2 := ''; index := Pos('=', str1); str2 := Copy(str1, index 1, Length(str1)-index); // Modified by Skyer 02/08/14 發表人 - skyer 於 2002/08/14 14:49:34

一不小心，寫成 Delphi 了 

------
--
Regards,
Skyer

[/quote] str1 := 'A1=500'; str2 := ''; index := Pos('=', str2); str2 := Copy(str1, index 1, Length(str1)-index); [/quote] 感謝!! 不過有個小錯誤: index := Pos('=', str2); --> index := Pos('=', str1);

>感謝!! >不過有個小錯誤: >index := Pos('=', str2); -->  index := Pos('=', str1);    謝謝，已更正 

------
--
Regards,
Skyer

追加問一個類似題： 假設要分開的符號不只一個 1.比如'123 234 345 456'，每個數字的長度一樣，要怎麼把它拆成四個數字？ BCB怎麼做，delphi又怎麼做？ 2.更難的，假設每個數字的長度不一樣呢？ 發表人 - c905165 於 2002/12/05 18:36:49

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

angel 兄，你是不是要從文字檔裡讀出這A1=500 的資料?? 如果是，用INIFiles 是最快的(Delphi 是在Uses 引用，bcb 是不是#include < IniFiles.hpp > ?? )    ps: angel 兄，麻煩你個人基本資料請填一填好嗎? --【

c905165，請參考此篇，應是你要的 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20862 angel 也可以參考看看 --【KTop SNG新聞現場】--記者:ddy----------------------------------------- 請各位市民做好資源回收與垃圾分類，讓不良標題與不當發言在KTop 市消失 -------------------------------------------------------------------------