Форум: "Начинающим";
Текущий архив: 2011.04.03;
Скачать: [xml.tar.bz2];
Внизzipforge Найти похожие ветки
← →
young_and_strong (2011-01-06 13:19) [0]в архиве хранится текстовый файл. Нужно в определенные моменты выводить его содержимое в TMemo. Посоветуйте куда лучше промежуточно считывать данные из текстового файла в string или TStream.
Вот два варианта.
procedure TFormMain.NewInfo(AZip: TZIPForge);
var
S: string;
Info: TMemo;
begin
try
AZip.ExtractToString(FILE_INFO_NAME, S);
except
raise Exception.CreateResFmt(@C_CAN_NOT_EXTRACT_FILE_INFO,
[FILE_INFO_NAME, AZip.FileName]);
end;
NewInfo.Text := S;
end;
procedure TFormMain.NewInfo(AZip: TZIPForge);
var
Stream: TStream;
begin
try
AZip.ExtractToStream(FILE_INFO_NAME, Stream);
except
raise Exception.CreateResFmt(@C_CAN_NOT_EXTRACT_FILE_INFO,
[FILE_INFO_NAME, AZip.FileName]);
end;
try
NewInfo.Lines.LoadFromStream(Stream);
except
raise Exception.CreateResFmt(@C_CAN_NOT_LOAD_FILE_INFO,
[FILE_INFO_NAME]);
end;
end;
← →
RWolf © (2011-01-06 13:50) [1]Разницы нет, за исключением того, что Stream надо всё же создать перед использованием.
← →
young_and_strong (2011-01-06 13:53) [2]а ну да, забыл
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.04.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c