Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
ВнизTMemoryStream Найти похожие ветки
← →
mixamixa (2003-02-28 04:09) [0]Считали мы файл в память:
ZZ:=TMemoryStream.Create;
ZZ.LoadFromFile("C:\1.txt");
А как из памяти считывать по одной строчке?
← →
Skyle (2003-02-28 04:30) [1]Попробуй двигаться по потоку до символов перевода строки.
← →
Slym (2003-02-28 08:56) [2]Работает только при строках меньше 256 символов (т.е. при использовании String, а не всяких "Длинных"), и работает ли?(не проверял)
funstion ReadLine(var Stream:TStream):string;
const br=#13#10;//Символы конца строки
var
position,n:longint;
str:string;
begin
result:="";
position:=Stream.Position;//запоминаем где были
if Stream.Read(str,length(str))=0 then //читаем 255 символов
exit;
n:=pos(br,str);//ищем конец строки
if n>0 then
begin
result:=copy(str,1,n);
Stream.Position:=position+n+2;//ставим позицию стрема
end
else
result:=str;
end;
← →
Digitman (2003-02-28 08:56) [3]На то есть готовый TStringStream
← →
Юрий Зотов (2003-02-28 09:03) [4]И готовый TStringList.
← →
Dimka Maslov (2003-02-28 09:30) [5]
var
L: TStringList;
i: Integer;
begin
L := TStringList.Create;
try
L.LoadFromFile("c:\1.txt");
for i := 0 to L.Count - 1 do ShowMessage(L[i]);
finally
L.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c