Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=419653&view=findpost&p=3838776 Sat, 12 Sep 2020 12:05:19 +0000 Добавить строку к строке? https://forum.sources.ru/index.php?showtopic=419653&view=findpost&p=3838776 navodri Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=419653&view=findpost&p=3838774 Sat, 12 Sep 2020 11:24:46 +0000 Добавить строку к строке? https://forum.sources.ru/index.php?showtopic=419653&view=findpost&p=3838774
Добавлено
Цитата navodri @
  s := 'String' + IntToStr(i) + #0;
  s := s + s;

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

Добавлено
наверное ты хотел написать
     s := s + 'String' + IntToStr(i) + #13#10;
]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=419653&view=findpost&p=3838765 Sat, 12 Sep 2020 08:45:26 +0000 Добавить строку к строке? https://forum.sources.ru/index.php?showtopic=419653&view=findpost&p=3838765 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;
]]> navodri Delphi: Общие вопросы