| 
| 
 | Вопрос # 4 166/ вопрос открыт / | 
 |  Здравствуйте, эксперты!Помогите решить задачу: надо что бы при открытие текстового документа в конце строчки везде ставил <br>
 
|  |   Вопрос задал: 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™ (статус: Доктор наук), 16 мая 2010, 08:48 [#1]: Цитата (serega7235): в конце строчки везде ставил... А теперь поподробнее, пожалуйста.
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 11:00 [#2]:что бы после изменения везде стояло <br> например:
 до
 HTML
 JavaScript
 PHP
 после
 HTML <br>
 JavaScript <br>
 PHP <br>
 |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 11:07 [#3]:Так, попробую включить телепатор... Тебе нужно открыть текстовый файл, затем в конец каждой его строки добавить <br> и сохранить в тот же файл. Я прав?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 11:09 [#4]:так точно |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 11:10 [#5]:И это всё надо написать на турбопаскале и ни в коем случае не на Delphi? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 11:13 [#6]:как тебе удобней |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 11:22 [#7]: Цитата (serega7235): как тебе удобней  Ну, тогда на Delphi напишу.
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 11:23 [#8]:давай |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 11:23 [#9]: Цитата (serega7235): давай  Написал, проверяй.
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 11:35 [#10]:скинь пожалуйста мне в skype serega72351 |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 11:39 [#11]: Цитата (serega7235): скинь пожалуйста мне в skype serega72351  Чего скинуть?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 11:44 [#12]:эту прогу а то у меня Delphi расстроен |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 11:49 [#13]:А я прогу не писал. Я написал только функцию. Прямо тут, в браузере. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 11:50 [#14]:а можешь написать и скинуть? |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 12:00 [#15]: Цитата (serega7235): а можешь написать и скинуть?  А пиво будет?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 12:01 [#16]:сколько? |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 12:04 [#17]: Цитата (serega7235): сколько?  1 кружка и сухарики.
   Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | serega7235 (статус: Посетитель), 16 мая 2010, 12:07 [#18]:приезжай будет больше, давай лучше деньги на телефон скину |  
|   | min@y™ (статус: Доктор наук), 16 мая 2010, 12:16 [#19]:Номер телефона выслал в личку. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |