delphi中文本框中数据只取左边几位怎么实现？

显示全部楼层 · 2007-6-6 11:04:24

function LeftStr(const AText: string; const ACount: Integer): string;含义是：返回字符串AText左边的ACount个字符你的函数可以写成：edit2.text:=leftstr(edit1.text,8);这样edit2的文本就成了‘12345678’了function Trim(const S: string): string; overload;返回除去字符串S左右不可见字符空格属于不可见字符，用edit2.text:=trim(edit1.text);就可以消除两边所有空格了使用这两个函数要在最上面USES部分加上SysUtils.pas，不然用不了哦

千问 · 2007-6-6 11:04:24

edit2.text ：= LEFT$("edit1.text",9)不好意思,我拿VB替你代写了个希望对你又所启发哦

千问 · 2007-6-6 11:04:24

Edit2.Text:=copy(trim(Edit1.Text),1,8);

千问 · 2007-6-6 11:04:24

我赞成一楼的回答方式,很让人受意,尤其是对你这样的!!如果你也会VB的话,那我就更不好说什么了,只能怪你自己不懂的如何触类旁通,不懂得如何学习了. 看来VB,你也是白学了,真的,你还别不信!