var
buf : array[1..255] of char;
str : string;
i : integer;
begin
str := 'i love you';
for i:=1 length(str) do
buf[i] := str[i];
end;
buf : array[1..255] of char;
str : string;
i : integer;
begin
str := 'i love you';
for i:=1 length(str) do
buf[i] := str[i];
end;
解决方案 »
- DELPHI中如何实现界面中英文切换
- 有个问题想请教各位delphi高手···delphi现在到底是一个怎样的状态?
- 超简单问题: 打开串口失败得到一个不可用THandle,对此THandle不用调用closehandle()了吧?
- 用过动态链接库的请进
- 关于能否局部组件的疑问。
- 如何得到excel文件的某一单元格内容
- 请问如何读出ImageList[i]中的图象先是在image中
- c语言的crc16算法 delphi 实现
- 急急!TButton的问题
- 请问建立MDI窗体后要怎样它的子窗体打开,而且能后关闭,而且只能显示一个相同的子窗体
- 如何在object inspector中改变pagecontrol中标签的文字,谢谢
- csdn的程序员大本营有病毒!!(happytime)好可怕!大家小心!
s1:char;
begin
s:='I love you';
s1:=Pchar(s);
end;
OK!