[EXEL]

Ребят помогите написать код просто никогда не писал на паскале. Пишу в fast reports отчёт но не могу написать функцию пишет ошибку

Код:

var
       i:Integer;
begin
       i := 0;
       if(<uv_check_1>=1) then begin
               i := i + 1;
              // Memo20.Memo.Format('{0} {1}. Bla-bla-bla'+#13,Memo20.Memo, i);                                                                                                                                    
               Memo20.Memo := Memo20.Memo + IntToStr(i) + '. Бла-бла-блва' + #13;
       end;                 

            
    
end;

пишет несовместимые типы

[M.A.D.M.A.N.]

Попробуй Chr(13)

[EXEL]

Сообщение от M.A.D.M.A.N.

Попробуй Chr(13)

так а причём тут перевод строки? это не поможет

[Aristarh Dark]

Что за объект Memo20?

[EXEL]

Сообщение от Aristarh Dark

Что за объект Memo20?

переписал чтобы было более понятно

Код:

var
       i:Integer;
       s:String;
begin
       i := 0;
       s :='';
       if(<uv_check_1>=1) then begin
               i := i + 1;
                     
               s := IntToStr(i) + '. Бла-бла-блва' + #13;
       end;                 
       Memo20.Memo := s;               

            
    
end;

просто надо вывести в объект тестовой который имеет свойство (TWideStrings)

вот что пишет Несовместимые типы: 'TWideStrings', 'String'

[Aristarh Dark]

А где вывод в объект? Что за объект? Где строчка с ошибкой?

[Aristarh Dark]

Наверное:

Код:

Memo20.Memo.Text:=s

[EXEL]

Сообщение от Aristarh Dark

А где вывод в объект? Что за объект? Где строчка с ошибкой?

обект этот в FastReport, я поправил код в предыдущем сообщении и указал что пишет за ошибку

[M.A.D.M.A.N.]

Попробуй в строковую переменную назначить результат конкатенации. FastReport глючный, там тонкостей много.
А про chr я писал, ибо там обычный #13 у меня не прокатывал, приходилось chr пользовать.