空字符串赋值给char型

[虎滴小猪猪]

我定义了一个char行变量，和一个string型变量。
我要将string型变量赋值给char。我用的是
a：char;
b: string;

a:=b[1];

现在的问题是，当b:=''时，赋值给a时，会出错，如何解决？

[ahjoe]

if B = '' then
A := #0;

[ks_reny]

a:=vartostr(b[i])

[a85805a]

ingyixia

[十八道胡同]

你访问了空，用之前先检查一下下标.

[jk012cgf]

其实是类型的转换，a：char是一个字符，而b：string为字符串类型，将b数组的值赋给a，是要将b字符串类型转换成字符类型，那么只要将a定义成一个数组就行：
var
A : array[0..10] of Char;
B : String;

begin
B := '';
StrPCopy(A,B);
showmessage(A);
end;

[jk012cgf]

如果一定按楼主的去做，不报错，但会产生溢出

[虎滴小猪猪]

恩，8楼说的对，我是写了类似这样的代码。

[starluck]

procedure TForm1.Button1Click(Sender: TObject);
var
  A : Char;
  B : String;
begin
  B := '';
  if length(B) =0 then
    A := #0
 else
  A := b[1];
  Showmessage(A);
end;

[h282451687]

string char =new char

[虎滴小猪猪]

有人把这个帖子弄成推荐了吗？
哈哈，这个小问题值得弄成这样吗？

[xudexing]

procedure TForm1.Button1Click(Sender: TObject);
var
A : AnsiChar;
B : AnSiString;
begin
B := '';
A := b[1];
end;

[fengylm]

楼上有广告。。

[neweipeng]

当b:=''时, Integer(b) = 0, b[1]取零地址的值，出现非法访问错误

解决办法：
[Quote=引用 4 楼 zxf_feng 的回复:]
判断一下是否未空再赋值吧
[/Quote]

[liqxin1977]

11楼正解

[mianju89]

使用判断语句if 判断b的长度，小于2，则a:='' 否则a:=b[1]

[starluck]

[Quote=引用 3 楼 ljfwyh 的回复:]
引用 1 楼 starluck 的回复:
Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);
var
A : AnsiChar;
B : AnSiString;
begin
B := '';
A := b[1];
end;


這樣 ？？？


这样的话，根本不走第二行代码，因为是有问题的。哈哈
[/Quote]

我的意思，你是不是写了这样的代码？？

[owlet_leo]

如果你非要那么做，那就在给字符型变量赋值前检测一下。
因为当b为空时，b[1]是不存在的。

[NuisT_NeO]

delphi 不熟的人飘过。。。
java或C里有 双面运算符 ? :
也就是判断后再取值
都已经null了你怎么取到第一位字符呢？非法的

[xiaocha]

关键是如果 b 为空时, 你想怎么办?

1 a = #0
2 提示错误
3 ......

if b='' then
begin
// do anything you want here
end;

[ZCH611407]

先判断是否是空值，然后进行赋值！
在判断空值的时候，方法很多！