Добавить строку к строке?

[navodri]

Мне необходимо получить все строки в данном примере, т.е. вот так должно отображится:
String0
String1
String2
String3

Но у меня получается отобразить только последнюю запись - String3. Что неправильно?

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 s:String;
begin
 for i := 0 to 3 do begin
  s := 'String' + IntToStr(i) + #0;
  s := s + s;
 end;
  messagebox(0, pchar(s),'',0);
end;

[ViktorXP]

ты добавляеш нулевой символ. в типе PChar это обозначает конец строки. замени на симпол переноса \r\n (#13#10)

Добавлено 12.09.20, 11:26

Цитата navodri @ 12.09.20, 08:45

  s := 'String' + IntToStr(i) + #0;
  s := s + s;

Но также этот кусок вызывает интерес. ты сначала присваиваеш строке значение (затирая предидущее) а потом конкатенируешь саму с собой

Добавлено 12.09.20, 11:27
наверное ты хотел написать

 s := s + 'String' + IntToStr(i) + #13#10;

Сообщение отредактировано: ViktorXP - 12.09.20, 11:27

[navodri]

Спасибо за помощь!