Последние записи
- В классе 20 учеников писали диктант по русскому языку. Напишите программу подсчитывающую кол-во оценок (двоек, троек…). Паскаль
- Построение в TreeView
- Открыть программу при повторном клике по ярлыку
- VirtualTreeView работа с узлами
- Выбрать по одной записи для каждой категории
- Различия в работе программы на Win 10 и Win Server
- Вопрос для тех, кто пишет (программирует) на двух и более языках: У вас бывает так, что правила/синтаксис одного языка случайно начинаете использовать в другом?
- vbulletin вставка дополнительных кнопок bb кодов bbcode в панель навигации
- vbulletin редактирование стандартных bb кодов
- Вынести часть текста из многострочной ячейки по условию (Excel)
7th
Июл
Как удалить все строки из txt в которых нет символа «+» ?
Posted by Chas under Delphi
Serge_Bliznykov
if OpenDialog1.execute then begin
uploaded := tstringlist.Create;
uploaded.LoadFromFile(OpenDialog1.FileName);
for a:=uploaded.Count-1 downto 0 do
if pos('+', uploaded[a])=0 then uploaded.delete(a);
uploaded.SaveToFile('1.txt');
uploaded.Free;
showmessage ('GOOD');
end;
Похожие статьи
