|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/1/13 8:12:50 |
标题: |
|
加入我的收藏 |
楼主: |
我想分别读取一个字段(如:K315)的第一个数字或字母和后面几个数字或字母出来分别保存到变量中,请问应如何写?谢谢了!!!
----------------------------------------------
愿和所有喜欢DELPHI的人成为朋友!! |
作者: |
lggang (lggang) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/1/13 8:31:30 |
1楼: |
━━━━━━━━━━━━━━━━━━━━━ 首部 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 功能 返回字符串AText左边的ACount个字符 说明 LeftStr('123456', 3) = '123' 参考 function System.Copy 例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首部 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 功能 返回字符串AText右边的ACount个字符 说明 RightStr('123456', 3) = '456' 参考 function System.Copy 例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas 功能 返回字符串AText从AStart开始的ACount个字符 说明 其实就是Copy 参考 function System.Copy 例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
----------------------------------------------
-
|
作者: |
|
2004/1/13 8:37:25 |
2楼: |
谢谢lggang兄弟了!!
----------------------------------------------
愿和所有喜欢DELPHI的人成为朋友!!
|
作者: |
|
2004/1/13 8:49:55 |
3楼: |
用copy也行 copy('123456',1,3):=123; copy('123456',2,3):=234; ...
----------------------------------------------
-
|
作者: |
|
2004/1/13 9:28:57 |
4楼: |
谢谢楼上的兄弟了!!
----------------------------------------------
愿和所有喜欢DELPHI的人成为朋友!!
|
|