Question

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

文本框EDIT1中有10位“12345678A ”，最后一位是空格，想复制到另一文本框EDIT2中，我如果只取前8位，12345678，怎么实现？取前9位，不要空格，怎么实现？edit2.text:=?怎么写？

请详细说明。
呵呵，VB我也会
1楼，谢谢，但你答非所问。3楼不懂别乱说！BASIC、PASCAL是两种语言！我开这个帖子不是为了挨批评！

Answer 1

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，不然用不了哦

Answer 2

edit2.text ：= LEFT$("edit1.text",9)

不好意思,我拿VB替你代写了个

希望对你又所启发哦

Answer 3

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

Answer 4

我赞成一楼的回答方式,很让人受意,尤其是对你这样的!!

如果你也会VB的话,那我就更不好说什么了,只能怪你自己不懂的如何触类旁通,不懂得如何学习了.
看来VB,你也是白学了,真的,你还别不信!