| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создать файл [D7, XP]
Костик © (2008-11-18 10:50:00)Как быстро создать файл, влить в него строку 'Файл создан такойто программой' + либо что, чтобы получилось повно 512 байт на диске?
Костик (2008-11-18 13:28:00) [21]
> {RASkov} © (18.11.08 13:26) [30]
Да, а что не поможет?
{RASkov} (2008-11-18 13:26:00) [22]> [29] Костик (18.11.08 13:22)
И что, ты решил забить все свободное место на винчестере файлами с пробелами? :)
Костик (2008-11-18 13:22:00) [23]
> Опиши всю задачу, партизан!
Будем считать, что меня пытали: хочу, чтобы то, что удаляется с винта, нельзя было восстановить никогда в жизни...
{RASkov} (2008-11-18 13:21:00) [24]> [26] Костик (18.11.08 13:10)
Да тут не в функциях дело, а в тумане в твоей голове...)
Amoeba (2008-11-18 13:14:00) [25]
> Костик (18.11.08 12:54) [23]
>
> Чтобы убрать следы
>
Чьи следы? И вместо кого-то наследить самому?
Опиши всюзадачу, партизан!
Костик (2008-11-18 13:10:00) [26]
> Да учат то нормально, тут не в учителях дело.
А в чём? В том что я не знаю пару функций? По моему это естественно...
Anatoly Podgoretsky (2008-11-18 13:04:00) [27]> {RASkov} (18.11.2008 12:03:15) [15]
Да учат то нормально, тут не в учителях дело.
Anatoly Podgoretsky (2008-11-18 13:02:00) [28]> Правильный$Вася (18.11.2008 11:32:05) [5]
Не надо отрезать, надо ноги удлиннить.
Костик (2008-11-18 12:54:00) [29]Чтобы убрать следы
Amoeba (2008-11-18 12:41:00) [30]
> Костик (18.11.08 12:31) [21]
>
> Это все круто, а как чтобы 2000 таких файлов занимало на
> диске ровно 2000*512 байт
А это еще зачем понадобилось? В чем хоть заключается собственно "сверхзадача"?
Костик (2008-11-18 12:31:00) [31]Это все круто, а как чтобы 2000 таких файлов занимало на диске ровно 2000*512 байт
{RASkov} (2008-11-18 12:25:00) [32]
var F: TextFile; S: String;
begin
AssignFile(F, <filename.ext>);
Rewrite(F);
try
S:=Application.Title;
SetLength(S, 512);
Write(F, S);
finally
CloseFile(F);
end;
end;
MsGuns (2008-11-18 12:19:00) [33]Пиши на физическом уровне :)
{RASkov} (2008-11-18 12:18:00) [34]> [16] Костик (18.11.08 12:05)
Может быть я бы тебе и написал как правильно, но я так и не пойму что тебе нужно и для чего это....
Да и смысла я не вижу в этих твоих пробелах в файле..... А размер файла можно указать произвольный и никаких марОк с пробелами или пальцами...
Ну а код [13] может быть и написан синтаксически верно, но логически - дурь полнейшая...
sniknik (2008-11-18 12:17:00) [35]циклы замени на
s:= s + StringOfChar(' ', 512 - Length(s));
Костик (2008-11-18 12:05:00) [36]
> И что это за дурь? Кто тебя так учит? :)
напиши как правильно
{RASkov} (2008-11-18 12:03:00) [37]> [13] Костик (18.11.08 12:00)
И что это за дурь? Кто тебя так учит? :)
{RASkov} (2008-11-18 12:02:00) [38]> [12] Palladin © (18.11.08 11:58)
> да и уточнить ему сразу не мешало бы в какую сторону загибать
Ой... надеюсь сообразит... если будет свои загибать, иначе сразу в глаз получит :)
Костик (2008-11-18 12:00:00) [39]
var f: TextFile;
i: Byte;
s: String;
begin
s := Application.Title + ' file';
for i := length(s) to 255 do
s := s + ' ';
for i := 0 to 255 do
s := s + ' ';
assign(f, NextFileName);
rewrite(f);
Write(f, s);
Flush(f);
CloseFile(f);
end;
Palladin (2008-11-18 11:58:00) [40]
> {RASkov} © (18.11.08 11:51) [10]
:) ты чего насоветовал?! он при задаче записать 1мег в больницу попадет с производственной трамвой... да и уточнить ему сразу не мешало бы в какую сторону загибать :)
а то может прямо сейчас загреметь
| |
Страницы: 