Ответ: Запись строки в масив
ViNT благодарю!!! Подскажи еще, не пойму, где в моем коде косяк, если в строке s:=' 1234' перед цифрами не поставить пробел, или любой другой символ, пишет 234-48, где делась единица? А с пробелом 1234
Program Test;
Var s:string;
data: array[1..7] of integer;
i:integer;
Begin
s:=' 1234';
for i:=1 to 4 do
begin
data[i]:=Ord(GetChar(s,i))-48;
end;
DrawText(''+data[1]+data[2]+data[3]+data[4],0,0);
repaint;
Delay(5000);
End.
|