Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] перевод массива строк в строку

Автор: maxvektor 6.3.2008, 23:32

Грубо говоря задача сводиться к следующему: необходимо все строки из поля мемо перевести в одну большою строку.Сложность заключается в том, что пустые строки тоже могут по ходу попадаться. Так что

Код


repeat  Stringmain:=Stringmain + memo3.lines[i];
i:=i+1;
until memo3.lines[i] = '';

не работает :(

Нужна либо подпрограмма, которая сначала удалит пустые строки(как хрестоматийная пробелы), либо более сложный алгоритм добавления/ Помогите пожалуйста...

Автор: Rodman 7.3.2008, 09:44

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
    str:WideString;
begin
  str:='';
  for i:=0 to Memo1.Lines.Count-1 do
    if(Length(Memo1.Lines.Strings[i])=0)then
      str:=str+' '
    else
      str:=str+Memo1.Lines.Strings[i]+' ';
end;

вот как я вижу ситуацию!

Автор: maxvektor 7.3.2008, 10:46

Большое спасибо. smile

работает как часы