Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.55 MB
Время: 0.031 c
14-30033
stone
2003-02-19 11:18
2003.03.10
Новая встреча


1-29889
apple11
2003-02-26 15:27
2003.03.10
Что такое Stream и для чего они нужны?


14-30068
Palladin
2003-02-21 13:53
2003.03.10
Подскажите имя hlp файла для Microsoft Data Access SDK


1-29848
Андрусь
2003-02-27 19:26
2003.03.10
как определить связь


3-29775
KPY
2003-02-18 15:22
2003.03.10
Как данные забрать?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский