Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.12;
Скачать: CL | DM;

Вниз

чтение через tfilestream   Найти похожие ветки 

 
blopp   (2006-01-25 22:17) [0]

открываю файл через filestream, в файле есть кусок, который содержит текст, мне известен размер этого куска; как мне загрузить его в string весь сразу, делаю через char, копирую по символу в него и добавляю в строку, но это долго


 
Loginov Dmitry ©   (2006-01-25 22:29) [1]

Может лучше объявить массив
var
 CharArray: array[1..N] of Char;

Затем считать нужный участок в этот массив

 filestream.Read(CharArray, N);

И скопировать в string

 Str := CharArray;


 
Джо ©   (2006-01-25 22:34) [2]

> blopp

В таком духе:

function ReadString (AStream: TStream; Length: Integer): string;
begin
 SetLength (Result, Length);
 AStream.Read(Result[1],Length)
end;



Страницы: 1 вся ветка

Текущий архив: 2006.02.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.047 c
2-1137912297
LaCross
2006-01-22 09:44
2006.02.12
Шифрование данных


15-1137961672
Volf_555
2006-01-22 23:27
2006.02.12
Купил оптическую мышу Delfics-курсор начал ежесекундно сдрагивать


15-1138184621
Харько
2006-01-25 13:23
2006.02.12
help файл для MEMProof


2-1138302266
Compton's G
2006-01-26 22:04
2006.02.12
датчик случайных числел на интервале (0,1)


15-1137603867
DSKalugin
2006-01-18 20:04
2006.02.12
Service Pack 1 и 2 для Delphi 6