帮个忙，请教一下 ,求求您了

Question

var
  sbuf        : array[0..100] of char;
  k           :integer;若k=8;
如何使得 sbuf[0]:='8'
 
 
  

Answer 1

if k=8 then
 sbuf[0]:=8;

Answer 2

呵呵,楼上的有一点小错误
if k = 8 then
  sbuf[0] := IntToStr(k);

Answer 3

if k = 8 then
  sbuf[0] := Char(IntToStr(k));

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  sbuf        : array[0..100] of char;
  k           :integer;
begin
   if k = 8 then
   sbuf[0]:= '8';
   ShowMessage(sbuf[0]);
end;楼主你自己写的其实是对的啊

Answer 5

我的意思是 怎样把一个int 变为' '但字符型的比如 var
        len :integer
        sbuf        : array[0..100] of char; 怎样让 sbuf[i]：='len' (比如len:=8,sbuf[i]：='8')
       
        sbuf[0] := Char(IntToStr(len)); 这样好像不对

Answer 6

当让不对了，你的如果碰到int是两位的 你是要放在一个sbuf[i]还是两个元素里？

Answer 7

试试这样var
 len :integer
 sbuf        : array[0..100] of string;
...
 if len = len then      
  sbuf[0] := IntToStr(len)

Answer 8

integer只能转为str不能转为char

Answer 9

我知道到了,这样
var
 len :integer
 sbuf        : array[0..100] of string;
...           tempstr    :=IntToStr(len);
           for j:=0 to length(tempstr)-1 do
           sbuf[i+j]    := tempstr[j+1];