Форум: "Начинающим";
Текущий архив: 2009.04.26;
Скачать: [xml.tar.bz2];
ВнизДинамический массив Найти похожие ветки
← →
DmitriyR (2009-03-16 16:01) [0]Вот кусок кода:
var
F: TFileStream;
l: integer;
Cert: array of Char;
Begin
F := TFileStream.create("c:\test.dat", fmOpenRead);
l := F.Size;
SetLength(Cert, l);
F.Read(Cert, l);
F.Free;
D := TFileStream.create("c:\test.dat.new", fmCreate);
D.Write(Cert, l);
D.Free;
Cert := nil;
end;
получаю в файле test.dat.new какуюто чуш :( непойми откуда он это берет. Хотя при трасеровке во время чтения файла в массиве Cert все равно не то что в файле оригинале :(
Если делаю вот так:
var
F: TFileStream;
l: integer;
Cert: array of array of Char;
Begin
F := TFileStream.create("c:\test.dat", fmOpenRead);
l := F.Size;
SetLength(Cert,1, l);
F.Read(Cert[1], l);
F.Free;
D := TFileStream.create("c:\test.dat.new", fmCreate);
D.Write(Cert[1], l);
D.Free;
Cert := nil;
end;
То в файле test.dat.new переносится все как положено, но
после строки Cert := nil прога зваисает намертво :( тоесть на выходе из процедуры.
Устал бится уже незнаю в какую сторону копать :(
← →
DmitriyR (2009-03-16 16:04) [1]Упс опечатка:
F, D: TFileStream;
← →
Медвежонок Пятачок © (2009-03-16 16:04) [2]риду нужен адрес, а не указатель
← →
MBo © (2009-03-16 16:05) [3]Cert[0] используй в методах чтения и записи
← →
DmitriyR (2009-03-16 16:12) [4]
> Cert[0] используй в методах чтения и записи
Вот если ставлю Cert[0] во втором примере то на выходе имею тоже самое что и в первом + тоже самое зависание :(
← →
Медвежонок Пятачок © (2009-03-16 16:13) [5]риду нужен адрес, а не указатель
и райту тоже
← →
DmitriyR (2009-03-16 16:19) [6]О все спс:
var
F: TFileStream;
l: integer;
Cert: array of Char;
Begin
F := TFileStream.create("c:\test.dat", fmOpenRead);
l := F.Size;
SetLength(Cert, l);
F.Read(Cert[0], l);
F.Free;
D := TFileStream.create("c:\test.dat.new", fmCreate);
D.Write(Cert[0], l);
D.Free;
Cert := nil;
end;
Во так прокатило. Всем СПС. Пополз читать ман, хотя в нем указано просто
как в первом варианте. :(
← →
Anatoly Podgoretsky © (2009-03-16 16:56) [7]> DmitriyR (16.03.2009 16:19:06) [6]
И нафига это?
← →
Тын-Дын © (2009-03-16 17:20) [8]
> И нафига это?
Самотестирование мозга, может быть?;)
← →
Anatoly Podgoretsky © (2009-03-16 20:35) [9]> Тын-Дын (16.03.2009 17:20:08) [8]
Выдержит или сломается
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.04.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c