如何把EDIt1.text赋值给array of char这种类型?
var
WData: array [0..300] of Char;
begin
WData:='1125551111';//这里想用EDIT1.text来代替'1125551111',有什么办法?
end;
var
WData: array [0..300] of Char;
begin
WData:='1125551111';//这里想用EDIT1.text来代替'1125551111',有什么办法?
end;
for n:=1 to length(edit1.text) do
wdata[n-1]:=edit1.text[n];
var A: array[0..79] of Char;
S: String;
begin
S := 'Honk if you know Blaise.';
StrPCopy(A, S);
Canvas.TextOut(10, 10, string(A));
end;