Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Простейшие вопросы по текстовым файлам и строкам... [D7, XP]

Max.66RUS © (2006-11-12 15:21:00)
Ситуация такая: есть два текстовых файла "C:/1.txt" и "C:/2.txt". В файле "C:/1.txt" содержится заранее неизвестный текст. Требуется считать текст из файла "C:/1.txt" и дописать его в файл "C:/2.txt". В файле "C:/2.txt" к моменту записи в него текста из "C:/1.txt" уже будет находиться другой текст, поэтому текст из файла "C:/1.txt" нужно дописать после уже имеющегося в файле "C:/2.txt" текста. Приложение без формы, поэтому метод с использованием "Memo1.Lines" не предлагать.

И ещё один вопрос, как можно узнать сколько строк в текстовом файле(Также без использования "Memo1.Lines")?

Заранее спасибо.

Max.66RUS (2006-11-12 16:43:00) [1]
Спасибо. Всё получилось.

KilkennyCat (2006-11-12 16:40:00) [2]
> [11] Ketmar © (12.11.06 16:30)

:))

Ketmar (2006-11-12 16:30:00) [3]
>[10] Германн(c) 12-Nov-2006, 16:26
>будут сразу брать ричэдит, а для невизуальных
>целей - TStringList.
нет. будут писать вопросы типа "раньше там было мемо, а теперь его нет. что делать?!"

Германн (2006-11-12 16:26:00) [4]

> Приложение без формы, поэтому метод с использованием "Memo1.
> Lines" не предлагать.

И чего всех вас так на мемо зациклило? Имхо его нужно убрать с первой вкладки в палитре! Может тогда для "раскраски" будут сразу брать ричэдит, а для невизуальных целей - TStringList.
:-)

Германн (2006-11-12 16:23:00) [5]

> Max.66RUS © (12.11.06 16:21) [7]

{$I+} {$I-}

Ketmar (2006-11-12 16:23:00) [6]
{$I-}, IOResult, F1.

Max.66RUS (2006-11-12 16:21:00) [7]
Всем спасибо. На счёт первых двух вопросов разобрался. Но возник ещё один вопрос:

Например, если я открываю текстовый файл для чтения:

AssignFile(File_1, 'C:\1.txt');
Reset(File_1);

То в случае, если файл отсутствует - программа аварийно завершает свою работу. Так вот, как исключить ошибку при отстутствии файла, т.е. программа должна не аварийно завершать работу, а сообщить пользователю об отсутствии файла... Например показать сообщение: ShowMessage('Файл не найден!').

Заранее спасибо.

KilkennyCat (2006-11-12 16:11:00) [8]
> [5] Германн © (12.11.06 16:04)

точно. упустил текстовость :)

Германн (2006-11-12 16:04:00) [9]

> KilkennyCat © (12.11.06 15:29) [3]
>
> ну и если дос не подходит, то открытие файла без перезаписи
> - reset().
>

Append

Джо (2006-11-12 15:31:00) [10]
1. Встроенный функции для работы с текстовыми файлами.
2. TFileStream.

Кол-во строк, самое простое: ReadLn и счетчик. Или даже TStringList.Count.

KilkennyCat (2006-11-12 15:29:00) [11]
ну и если дос не подходит, то открытие файла без перезаписи - reset().

KilkennyCat (2006-11-12 15:27:00) [12]
количество строк равно количеству возвратов каретки. 0D, 0A и сочетание их.

KilkennyCat (2006-11-12 15:25:00) [13]
дос помним? конкатенацию командой copy?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »