Нетипизированные файлы

← →
-Night $kull- (2003-08-15 18:27) [0]

Люди, помогите разобрться вот в такой ерунде:
procedure TForm1.TextWrite;
var
fw: file;
boot: widestring;
Sum : integer;
begin
boot := memo1.Text;
Sum := Length(boot);
AssignFile(fw,"out.txt");
rewrite(fw,1);
BlockWrite(Fw, Sum, SizeOf(Sum));
if Sum > 0 then
BlockWrite(Fw, boot[1],Sum);
CloseFile(fw);
end;

procedure TForm1.TextRead;
var
f: file;
oil: widestring;
Len : integer;
begin
oil := "";
AssignFile(f,"out.txt");
reset(f,1);
BlockRead(F, Len, SizeOf(Len));
SetLength(oil, Len);
if Len > 0 then
BlockRead(F, oil[1], Len);
CloseFile(f);
memo1.Text := oil;
end;

Посмотрите внимательно вот на эти процедуры...
Почемуто когда я загружаю уже сохраненный текст в мемо то ровно половина текста у меня вопросиками становиться... в чем тут может быть проблема и если можно то подскажите какой нить другой вариант...
Заранее спасибо.

← →
DVM (2003-08-15 18:31) [1]

А почему бы не просто Memo.lines.savetofile?

← →
-Night $kull- (2003-08-15 18:33) [2]

да просто надо чтобы текст нечитаемым был... а скока этого текста будет неизвестно я много вариантов испробовал ничего не помогает :(

← →
DVM (2003-08-15 18:52) [3]

Текста известно сколько < 64 кб :)
Сохраняй и шифруй сам файл. Алгоритмов куча.
Попробуй поменять widestring на string - что-то мне подсказывает, что проблема в этом. Точнее в количестве байт под строку.

← →
HolACost! (2003-08-15 18:58) [4]

Может чтонить поинтереснее придумаешь? Тут вообще какой-то бред!
Типа каждый символ записан в месте размером с номер позиции! ЗАЧЕМ? Легче зашифровать просто и всё! Например простой заменой... или что-нить из Библиотеки Бесплатных Функций взять! Там много всего!

← →
-Night $kull- (2003-08-15 19:01) [5]

ну это то да... если больше то текст в файле в явном виде лежит :)... и насчет widestring я тоже думаю что проблема в нем.
тогда спрашиваеться нахрена придумали эту батву если оно не работает как надо???
А вот на счет алгоритмов шифрования я так и не нашел ни одного подходящего... т.е. попадались они мне но нерабочие...

← →
Юрий Зотов (2003-08-15 22:08) [6]

> -Night $kull- © (15.08.03 19:01) [5]

> нахрена придумали эту батву если оно не работает как надо???
Есть подозрение, что у того, кто ее придумал, все работало.

> на счет алгоритмов шифрования я так и не нашел ни одного
> подходящего

Вам, надеюсь, суперсекретность не нужна? Тогда, например, перед записью просто вычтите из каждого символа 31 (в байтовом виде, конечно), а после чтения те же 31 прибавьте. Вместо 31 можно взять и другое число, но не более 31.

← →
-Night $kull- (2003-08-16 10:49) [7]

> Юрий Зотов © (15.08.03 22:08) [6]

А нельзя все таки как нить без шифрования обойтись именно так как у меня в коде написано??? просто это же время занимает шифрование... а тут сразу записал как есть в файлик и готово :)

← →
Palladin (2003-08-16 13:55) [8]

Нетипизированные файлы Найти похожие ветки