Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 166

/ вопрос открыт /

Здравствуйте, эксперты!
Помогите решить задачу: надо что бы при открытие текстового документа в конце строчки везде ставил <br>

serega7235 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: serega7235 (статус: Посетитель)
Вопрос отправлен: 15 мая 2010, 23:24
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Вот тебе функция:

function AddBrakesToTextFile(const FileName: string): Boolean;
var
  Lines: TStringList;
  Index: Integer;
begin
  Result:= True;
  Lines:= TStringList.Create();
  try
    try
      Lines.LoadFromFile(FileName);
 
      for Index:= 0 to Lines.Count - 1 do
        Lines[Index]:= Lines[Index] + '<br>';
 
      Lines.SaveToFile(FileName);
    except
      Result:= False;
    end;
  finally
    Lines.Free();
  end;
end;

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 16 мая 2010, 11:23


Мини-форум вопроса

Всего сообщений: 19; последнее сообщение — 16 мая 2010, 12:16; участников в обсуждении: 2.
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 08:48 [#1]:

Цитата (serega7235):

в конце строчки везде ставил...

А теперь поподробнее, пожалуйста.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 11:00 [#2]:

что бы после изменения везде стояло <br>
например:
до
HTML
JavaScript
PHP
после
HTML <br>
JavaScript <br>
PHP <br>
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 11:07 [#3]:

Так, попробую включить телепатор...
Тебе нужно открыть текстовый файл, затем в конец каждой его строки добавить <br> и сохранить в тот же файл. Я прав?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 11:09 [#4]:

так точно
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 11:10 [#5]:

И это всё надо написать на турбопаскале и ни в коем случае не на Delphi?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 11:13 [#6]:

как тебе удобней
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 11:22 [#7]:

Цитата (serega7235):

как тебе удобней

Ну, тогда на Delphi напишу.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 11:23 [#8]:

давай
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 11:23 [#9]:

Цитата (serega7235):

давай

Написал, проверяй.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 11:35 [#10]:

скинь пожалуйста мне в skype serega72351
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 11:39 [#11]:

Цитата (serega7235):

скинь пожалуйста мне в skype serega72351

Чего скинуть?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 11:44 [#12]:

эту прогу а то у меня Delphi расстроен
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 11:49 [#13]:

А я прогу не писал. Я написал только функцию. Прямо тут, в браузере.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 11:50 [#14]:

а можешь написать и скинуть?
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 12:00 [#15]:

Цитата (serega7235):

а можешь написать и скинуть?

А пиво будет?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 12:01 [#16]:

сколько?
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 12:04 [#17]:

Цитата (serega7235):

сколько?

1 кружка и сухарики. :)
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
serega7235

serega7235 (статус: Посетитель), 16 мая 2010, 12:07 [#18]:

приезжай будет больше, давай лучше деньги на телефон скину
min@y™

min@y™ (статус: Доктор наук), 16 мая 2010, 12:16 [#19]:

Номер телефона выслал в личку.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:55
Выполнено за 0.03 сек.