|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.06.2009, 13:56 | #1 |
Новичок
Джуниор
Регистрация: 08.06.2009
Сообщений: 1
|
при нахождении символа перенос на новую строку
привет, подскажите пожалуйста, как можно в тексте, в компоненте мемо при нахождении символа(например '|') перенести текст на новую строку, и так до конца файла ???
|
08.06.2009, 15:14 | #2 |
Delphi
Форумчанин
Регистрация: 12.06.2008
Сообщений: 137
|
вот так:
Код:
|
08.06.2009, 16:51 | #3 |
Форумчанин Подтвердите свой е-майл
Регистрация: 01.12.2006
Сообщений: 514
|
var
s,c:string; begin s:=твоя строка c:=твой символ stringreplace(s,с,с+#13,[rfReplaceAll]);
Пишу на Delphi за еду
|
09.06.2009, 08:02 | #4 |
Форумчанин
Регистрация: 09.06.2009
Сообщений: 151
|
с первым вариантом не пошло, он просто в Тмемо создает в конце текста нову ю строку, а со вторым воопще ничего не происодит =(, вот.....
|
09.06.2009, 08:08 | #5 | |
Форумчанин
Регистрация: 29.01.2009
Сообщений: 411
|
Цитата:
Код:
|
|
09.06.2009, 08:37 | #6 |
Форумчанин
Регистрация: 09.06.2009
Сообщений: 151
|
|
09.06.2009, 08:39 | #7 |
Форумчанин
Регистрация: 29.01.2009
Сообщений: 411
|
Покажи полностью код
|
09.06.2009, 08:45 | #8 |
Форумчанин
Регистрация: 09.06.2009
Сообщений: 151
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) Button1: TButton; Open: TOpenDialog; Button2: TButton; from: TEdit; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormDblClick(Sender: TObject); private procedure doit; { Private declarations } public { Public declarations } end; var Form1: TForm1; f1 : textFile; s,c, str: string; i: integer; implementation {$R *.dfm} procedure Tform1.doit(); begin AssignFile(f1, from.text); Reset(f1); while not eof(f1) do CloseFile(f1); end; procedure TForm1.Button1Click(Sender: TObject); begin if Open.Execute then from.Text :=Open.FileName else ShowMessage ('Ôàéë íå âûáðàí'); Memo1.lines.loadfromfile(from.text) ; end; procedure TForm1.Button2Click(Sender: TObject); begin doit; end; end. |
09.06.2009, 08:46 | #9 |
Форумчанин
Регистрация: 09.06.2009
Сообщений: 151
|
вот то чо за 2 дня накорябал =)
|
09.06.2009, 09:04 | #10 |
Форумчанин
Регистрация: 29.01.2009
Сообщений: 411
|
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переход на новую строку | delphin100 | Общие вопросы Delphi | 9 | 31.05.2012 04:52 |
Вставка поля в новую строку таблицы другого документа!!!! | Окоча Юра | Microsoft Office Word | 6 | 06.03.2009 10:07 |
Работа с файлом(переход на новую строку) | Rifler | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 06.12.2008 23:51 |
Как при использовании FileWrite перейти на новую строку? | Artem | Win Api | 4 | 03.09.2007 17:02 |