Нужно записать несколько строк по-очереди в переменную...

[FleXik]

Вобщем в обычной переменной типа string как все знают нельзя по-очереди записать по одной строке (например) т.к данные будут перезаписываться, поэтому для этого сущействует переменные типа TStringList или массивы, вобщем вопрос, есть ли способы это реализовать другим способом, не используя TStringList или массив?

[BDA]

s := '';
if length(s) = 0 then
  s := 'string'
else
  s := s + sLineBreak + 'string';

[northener]

Сообщение от FleXik

Вобщем в обычной переменной типа string как все знают нельзя по-очереди записать по одной строке (например) т.к данные будут перезаписываться, поэтому для этого сущействует переменные типа TStringList или массивы, вобщем вопрос, есть ли способы это реализовать другим способом, не используя TStringList или массив?

Главное скажи зачем это нужно? Что потом с этой переменной предстоит делать?

[FleXik]

Главное скажи зачем это нужно? Что потом с этой переменной предстоит делать?

for j:=0 to m-1 do
begin

   if i<Str.Count then
   Arr.Add(Str[i]);

   if Pos('test', Memo1.Text)<>0 then
   Memo1.Text:=StringReplace(Memo1.Text, 'test', Arr.Text, [rfReplaceAll, rfIgnoreCase]);

inc(i);
end;

вот, и Memo1.Text уже потом подставляется в запросы вне цикла, но, у меня есть несколько слов 'test' которые должны заменяться с помощью StringReplace на загруженные из .txt файла (переменная Str[i]) строки по-очереди, но получается что Memo1.Text в цикле просто перезаписывается вместо того чтобы накапливать строки

[northener]

Сообщение от FleXik

for j:=0 to m-1 do
begin

   if i<Str.Count then
   Arr.Add(Str[i]);

   if Pos('test', Memo1.Text)<>0 then
   Memo1.Text:=StringReplace(Memo1.Text, 'test', Arr.Text, [rfReplaceAll, rfIgnoreCase]);

inc(i);
end;

вот, и Memo1.Text уже потом подставляется в запросы вне цикла, но, у меня есть несколько слов 'test' которые должны заменяться с помощью StringReplace на загруженные из .txt файла (переменная Str[i]) строки по-очереди, но получается что Memo1.Text в цикле просто перезаписывается вместо того чтобы накапливать строки

Тогда нужно начать с начала. С описания задачи.

[FleXik]

Тогда нужно начать с начала. С описания задачи.

в каком смысле? я описал задачу

Вобщем обьясню еще раз...

Есть 3 строки в переменной Arr.Text (переменная типа TStringList)
Есть 3 слова test в Memo1.Text

Цель:
Заменить по-очереди три слова test по-очереди тремя строками из переменной Arr.Text

[ZuBy]

...
   for i:=0 to arr.count-1 do
   Memo1.Text:=StringReplace(Memo1.Text, 'test', Arr.Strings[I], [{rfReplaceAll, 
}rfIgnoreCase]);

что то типа такого?

[FleXik]

ZuBy, да-да, я уже так пробовал но у меня почему-то несколько раз писало, сейчас еще раз попробую

но я новой переменной делал через

ts.Add(StringReplace(Memo1.Text, 'test', Arr.Strings[I], [{rfReplaceAll, 
}rfIgnoreCase]);

мне просто нужно чтобы оно не визуально меняло в Memo а скрытно, ну всмысле записывало в переменную и эту переменную я потом бы подставлял

если записывать измененные данные в обычную переменную типа string - цикл будет перезаписывать данные т.к тип string не может дозаписывать данные, только перезапись...

Короче получается какой-то бред, при записи измененных данных в переменную типа string используя цикл способом ZuBy - на финише получаю три одинаковые строки что очень странно т.к по идее переменная типа string не может содержать несколько строк при записи по одной строке т.к данные перезаписываются

пример:
вместо:
Раз
Два
Три

получаю:
Раз
Раз
Раз

Идем дальше... при использовании переменной типа TStringList используя ts.Add на финише получаю несколько повторов даже при том что я вначале чищу ts.Clear

пример:
вместо:
Раз
Два
Три

получаю:
Раз
Раз
Раз

Два
Два
Два

Три
Три
Три

причем почему-то 3 раза вписывает да еще и повторы.. и это при том что цикл for, это не while где надо inc(i) делать..

[ZuBy]

var
  I: Integer;
begin
  for I := 0 to Memo1.Lines.count - 1 do
    Memo1.Text := StringReplace(Memo1.Text, 'test', Memo2.Lines[I], [rfIgnoreCase]);

Все работает как нужно, не пойму что у вас не получается

Memo1 - хранит test, а Memo2 -хранит Раз, Два, Три

[FleXik]

1. Я не заметил знаков { } в [] в StringReplace
2. Не помогает т.к я даже скриншот давал что test не одно а три

одно test оно заменяет, спора нет, а вот остальные - нет, на первой странице я добавил скриншот и там видно как есть и как должно быть, внимательнее посмотрите.