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

Суббота, 12 Сентября 2020 г. 11:45 + в цитатник

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;

https://forum.sources.ru/index.php?showtopic=419653&view=findpost&p=3838765