delphi ansichar 就是Delphi2010 他的edit编辑框文本是widechar类型也就是 1个字符占2个字节，不管是数字

答案:2 悬赏:40 手机版

解决时间 2021-03-19 14:31

提问者网友：最爱你的唇
2021-03-19 09:13

就是Delphi2010 他的edit编辑框文本是widechar类型也就是 1个字符占2个字节，不管是数字还是汉字，
现在我的问题就是将编辑框的一串数字写入文件所以必须用 Ansichar 但是eidt.text得到的又是widechar 没有转化函数，怎么办，就是将该串数字的ansi码写入文件
//替换按钮
procedure TForm1.Button1Click(Sender: TObject);
var
buffer:Array[0..29] of Widechar;
begin
MS:=TMemoryStream.Create;
MS.LoadFromFile(path);
Form1.Memo1.Lines.Add('请输入第'+inttostr(count)+'个15位的IMSI号码!');
if Form1.Edit1.GetTextLen=15 then
begin
StrCat(buffer,PAnsiChar(Edit1.Text)); 这里实际只获得了第一个数字
Memo1.Lines.Add(Edit1.Text);
Ms.Position:=points;
//MS.Write(buffer,Sizeof(buffer));
MS.WriteBuffer(buffer,Sizeof(buffer));
Form1.Memo1.Lines.Add('第'+inttostr(count)+'处修改成功！');
Form1.Memo1.Lines.Add('------------------------------------------------');

最佳答案

五星知识达人网友：怀裏藏嬌
2021-03-19 10:45

WideCharToMultiByte

Win32 API函数，用法自己查。

全部回答

1楼网友：零点过十分
2021-03-19 10:55

定义一个ansistring 把widestring赋值给ansistring.

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息