Задача в delphi - Общие вопросы Delphi

Ken_Watanabe · 20.11.2014, 14:52

Дан текстовый файл. Продублировать в нем все пустые строки. Help, Sos!

Stilet · 20.11.2014, 15:07

Цитата:

Help, Sos!

Вау... Прям Krieg души...

Код:

With TStringList.Create do begin
 LoadFromfile(файл);
  Text:=StringReplace(Text,#13#10,#13#10#13#10,[rfreplaceall]);
 SaveTofile(файл);
 free;
end;

Годится?

Человек_Борща · 20.11.2014, 15:07

как-то так:

Код:

if (SS[i] = EmptyStr) then
  SS.Insert(i,'');

evg_m · 20.11.2014, 15:47

Цитата:

Годится?

Нет. Это после каждой строчки вставить пустую.

Код:

#13#10#13#10 вот это пустая строчка
#13#10#13#10#13#10 а это две пустых строчки

Цитата:

как-то так:

только направление перебора правильное выбрать, а то может получиться очень много пустых строчек.

Stilet · 20.11.2014, 17:22

Цитата:

evg_m

Согласен:

Код:

Text:=StringReplace(Text,#13#10#13#10,#13#10#13#10#13#10#13#10,[rfreplaceall]);

20.11.2014, 15:07	#3
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,426	как-то так: Код: `if (SS[i] = EmptyStr) then SS.Insert(i,'');`

20.11.2014, 14:52	#1
Ken_Watanabe Пользователь Регистрация: 17.04.2014 Сообщений: 39	Задача в delphi Дан текстовый файл. Продублировать в нем все пустые строки. Help, Sos!