|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.05.2012, 16:16 | #1 |
Пользователь
Регистрация: 07.05.2012
Сообщений: 18
|
как считать весь текст
гляньте,я написал программму, но она работает только есле в текстовом файле 1 строка текста, а мне нужно чтоб она работа со всем текстом который находится в файле... подскажите, как ее исправить
Form1: TForm1; f:textfile; s:string[255]; s1:string; i,j,k,l:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin assignfile(f,'in.txt'); reset(f); i:=0; read(f,s); label2.Caption:=' '; l:=1; while i<=length(s) do begin i:=i+1; if s[i]='.' then begin for k:=i downto l do label2.Caption:=label2.Caption+s[k]; l:=i+1; end; end; closefile(f); end; end. |
08.05.2012, 16:21 | #2 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
Обычно это выглядит так:
Код:
Сливочное масло Valio - компиляция как по маслу
|
08.05.2012, 16:25 | #3 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Или:
Код:
|
08.05.2012, 16:26 | #4 |
Пользователь
Регистрация: 07.05.2012
Сообщений: 18
|
|
08.05.2012, 16:32 | #5 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Makspane
А давай те не будем друг другу мозг выносить и заниматься телепатией Выложите всё задание! ОТ и ДО
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
08.05.2012, 16:39 | #6 | |
Пользователь
Регистрация: 07.05.2012
Сообщений: 18
|
Цитата:
тот код что выше это делает, нотолько для ОДНОЙ строки, а мне надо чтоб оно работало для любого количества строк в файле |
|
08.05.2012, 17:19 | #7 |
Пользователь
Регистрация: 07.05.2012
Сообщений: 18
|
гляньте, пожалуйста , а то я не могу норм разобрать, как это сделать.....
|
08.05.2012, 17:31 | #8 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
так как я понял точка предложения может находиться где угодно ии в принципе на других строках. Тогда как мне кажется считывание символами будет лучше примерно так
Код:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
08.05.2012, 18:52 | #9 | |
Пользователь
Регистрация: 07.05.2012
Сообщений: 18
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как считать текст из Internet Explorer_Server зная только его Хэндл? | ivancoff | Работа с сетью в Delphi | 0 | 31.10.2011 00:37 |
как в Delphi скопировать весь текст от нужного символа до конца строки ?? | Skeptic | Общие вопросы Delphi | 4 | 10.10.2011 22:36 |
Как считать текст из контрола другого приложения | mika505 | Win Api | 2 | 18.06.2011 00:09 |
как считать весь файл в C | Coraline | Общие вопросы C/C++ | 2 | 17.05.2011 02:08 |
Excel 2003: Worksheets().Shapes().Select - выбирает не весь текст фигуры | ZaeC | Microsoft Office Excel | 0 | 26.05.2010 14:15 |