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

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

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

Cледующий код дописывает к файлу перевод строки. Как от этого изб [D7, WinME]

Страницы: < 1 2
Алекс А © (2004-06-13 01:11:00)
авиться ?
ListBox1.Items.LoadFromFile( 'test.txt' ); ListBox1.Items.SaveToFile( 'test.txt' );
Файл test.txt состоит всего из одного символа "a". После выполнения кода его длина увеличивается до 3 символов. Происходит это возможно из-за того, что каждая строка должна заканчиваться переводом строки. Мне же надо, чтобы ничего лишнего не дописывалось. Если в конце последней строки нет перевода, то чтобы также и оставалось бы. Как этого можно добиться ?

Алекс А (2004-06-15 03:21:00) [21]

> KilkennyCat © (15.06.04 02:12) [18]
> BlockWrite

Эта функция записывает данные в файл. Нужна же которая уменьшит его длину на диске.

KilkennyCat (2004-06-15 02:12:00) [22]
BlockWrite

Алекс А (2004-06-15 02:08:00) [23]

> Palladin © (14.06.04 09:49) [16]
>
> > [15] Алекс А (14.06.04 04:32)
>
> Путем потери данных? Trunc

Ненужных данных. Ну, так чего, никто не знает ?

Palladin (2004-06-14 09:49:00) [24]

> [15] Алекс А (14.06.04 04:32)

Путем потери данных? Trunc

Алекс А (2004-06-14 04:32:00) [25]
Так как же всё таки подправить длину файла на диске ?

KilkennyCat (2004-06-14 02:49:00) [26]

> default © (14.06.04 02:29) [13]

Это я хотел сказать "изменение длины файла при записи" :)

> для автора сабжа быстрей бы было [8] тем более в исходниках
> уже готовый код есть, там только чуть изменить и скопировать...

Да я вроде так и сказал :)

default (2004-06-14 02:29:00) [27]
KilkennyCat © (14.06.04 02:19) [12]
поточнее можно: что вы хотите за запись менять?
для автора сабжа быстрей бы было [8] тем более в исходниках уже готовый код есть, там только чуть изменить и скопировать...

KilkennyCat (2004-06-14 02:19:00) [28]
Изменение одной цифры длины записи - работа равносильна и по времени и по смыслу > default © (14.06.04 01:41) [8]

default (2004-06-14 02:04:00) [29]
судя по времени появления сабжа этого не сказать

Алекс А (2004-06-14 01:54:00) [30]

> default © (14.06.04 01:41) [8]
> ёлки, а не быстрей-ли добавить "специальный" SaveToFile
> написав потомка TMemo, пишущий строки в файл без #13#10
> в конце списка?

Не быстрее. Быстрее изменить одну цифру длины файла.

default (2004-06-14 01:42:00) [31]
вернее к ListBox-у, но это ничего не меняет

default (2004-06-14 01:41:00) [32]
ёлки, а не быстрей-ли добавить "специальный" SaveToFile
написав потомка TMemo, пишущий строки в файл без #13#10 в конце списка?

Алекс А (2004-06-14 01:37:00) [33]

> Palladin © (14.06.04 01:26) [6]
> В справке нет? А ты искал? Всего то требовалось перевсти
> да подумать...
> FileSize
> FileSizeByName
>
> GetFileSize - WAPI

И чего GetFileSize ? Как уменьшить-то размер файла на диске не грузя его ?

Palladin (2004-06-14 01:26:00) [34]
В справке нет? А ты искал? Всего то требовалось перевсти да подумать...
FileSize
FileSizeByName

GetFileSize - WAPI

Алекс А (2004-06-14 01:20:00) [35]

> Fay © (13.06.04 04:52) [4]
> 2Алекс А (13.06.04 03:19) [3]
> FindFirst

А как эту длину уменьшить не загружая файла, а лишь указав файловой системе другую его длину ?

Fay (2004-06-13 04:52:00) [36]
2Алекс А (13.06.04 03:19) [3]
FindFirst

Алекс А (2004-06-13 03:19:00) [37]

> Anatoly Podgoretsky © (13.06.04 01:25) [2]
> Перед загрузкой проверь есть ли в конце символы перевода,
> после сохранения скорректируй

Какая функция позволяет узнать длину файла диске, не открывая его? Что то в справке нету. Хочу сравнить длину файла на диске с ListBox1.Items.Text , чтобы при сохранении скорректировать.

Anatoly Podgoretsky (2004-06-13 01:25:00) [38]
Перед загрузкой проверь есть ли в конце символы перевода, после сохранения скорректируй

KilkennyCat (2004-06-13 01:13:00) [39]
Не пользоваться Lines. Либо удалять ненужное вручную.

Страницы: < 1 2

Наверх

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