Помогите найти ошибку в коде - есть ответ

mrJunk, 451 просмотр

type
TDigit = 0..9;
TLongNumber = array of TDigit;

Function StrToTLongNumber(x:String):TLongNumber;
var i,n:integer;
begin
n:=length(x);
for i:=0 to n-1 do
result[i+1] := StrToInt(x[i]);
end;

Function TLongNumberToStr(x:TLongNumber):string;
var i,n:integer;
begin
n:=Length(x);
For i:=0 to n-1 do
Result[i]:=IntToStr(x[i+1]); \\тут пишет ошибку [Error] Unit1.pas(45): Incompatible types: 'Char' and 'String'
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
a:TLongNumber;
begin
a:=StrToTLongNumber(Edit1.Text);
for i:=0 to n-1 do
edit2.Text:=edit2.Text+TLongNumberToStr(a[i]);
end;

Ответы:

jit.md

Function LongNumToString(x:TLongNumber):String;
var i:integer;
s,k:string;
begin
s:='';
for i:=1 to x[0]-1 do begin
k:='';
while length(k+IntToStr(x[i]))<4 do k:=k+'0';
s:=k+IntToStr(x[i])+s;
end;
s:=IntToStr(x[x[0]])+s;
LongNumToString:=s;
end;

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.