怎么取Edit1.Text中的左边第一个字符 var str,cha:string;begin str:=edit1.text; cha:=copy(str,1,1); showmessage(cha);end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 也可以用var str1,str2:string;begin str1:=edit1.text; str2:=str[1]; showmessage(str2);end; Delphi小票打印机是否是否存在? 怎样edit组件中输入的路径及文件名信息来创建文件? DBgridEh 倒出 TXT 的格式问题 (100分)在win98下怎么去掉一个已知handle的窗体的标题栏?? 如何取得小数的整数位 串口通信为何不稳定? 将SQL数据库中某一个字符型字段的值的第一个字符去掉,应该怎样写SQL语句? 什么控件可以从ImageList中得到图标? 怎么实现一个功能相对强大的对数据库搜索引擎? IAmBadBoy(农民→Qiqi的老公) 来领分3 StretchHandle的问题 使用钩子在别人的程序上添加菜单,请问该如何响应菜单操作。
var
str1,str2:string;
begin
str1:=edit1.text;
str2:=str[1];
showmessage(str2);
end;