Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

Загрузка данных из файла в поток   Найти похожие ветки 

 
Pavel   (2010-02-28 20:53) [0]

Возможно ли с поощью функции LoadFromFile загрузить не весь файл в поток, а только половину?


 
Игорь Шевченко ©   (2010-02-28 21:07) [1]

Кроме LoadFromFile существует еще масса интересных функций. А у LoadFromFile есть исходный текст.


 
Медвежонок Пятачок ©   (2010-02-28 21:07) [2]

если есть поток, то при чем здесь лоадфромфайл?
это единственный что ли его паблик метод?


 
Anatoly Podgoretsky ©   (2010-02-28 21:32) [3]

Про какой поток речь?


 
Baks   (2010-02-28 21:39) [4]

Используй процыдуры BlockRead (для чтения) и BlockWrite (для записи).

var
 FromF: file;
 NumRead: Integer;
 Buf: array[1..2048] of Char;
begin
 AssignFile(FromF, OpenDialog1.FileName);
 Reset(FromF, 1); { Record size = 1 }
 try
   while not eof(FromF) do
     BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
 finally
   CloseFile(FromF);
 end;
end;

Так можно прочитать нужное кол-во данных.


 
Pavel   (2010-02-28 21:40) [5]

Есть файл "Text.txt", есть поток "st1: TStringStream". В поток st1 нужно загрузить не весь файл "Text.txt", а только половину.


 
Медвежонок Пятачок ©   (2010-02-28 21:42) [6]

ну и грузи половину.


 
Baks   (2010-02-28 21:44) [7]

TStringStream

property Size: Longint;

Description

Read Size to determine how many bytes are used to store the value of DataString. Set Size to truncate the text or to increase the length of DataString. If Size is set to a value greater than the current length of the text, the content of the new bytes is undefined.


 
Pavel   (2010-02-28 21:50) [8]

Если не слжно скиньте примерчик, спасибо.


 
Pavel   (2010-02-28 21:55) [9]

Необходимо, прочитать первую половину файла, ее обработать, а затем прочитать вторую половину файла.


 
Германн ©   (2010-03-01 00:16) [10]


> Необходимо, прочитать первую половину файла

Определение термина "половина файла" в студию.


 
Плохиш ©   (2010-03-01 00:45) [11]


> Pavel   (28.02.10 21:55) [9]
>
> Необходимо, прочитать первую половину файла, ее обработать,
>  а затем прочитать вторую половину файла.

Не там ищешь тормоза, ищи в своём коде.


 
Германн ©   (2010-03-01 01:00) [12]


> Плохиш ©   (01.03.10 00:45) [11]

Может это не поиск "тормозов", а учебная задача?


 
Игорь Шевченко ©   (2010-03-01 03:18) [13]


> Необходимо, прочитать первую половину файла, ее обработать,
>  а затем прочитать вторую половину файла.


не возражаю


 
KilkennyCat ©   (2010-03-01 04:02) [14]


> не возражаю

я ща фтп по улице тяну, можно мне крепить его не через метр, а через полтора? а то стяжек не хватает.


 
Anatoly Podgoretsky ©   (2010-03-01 09:31) [15]

> Германн  (01.03.2010 00:16:10)  [10]

Возьми с полки пирожок, их там два, возьми средний.


 
Игорь Шевченко ©   (2010-03-01 12:38) [16]


> я ща фтп по улице тяну, можно мне крепить его не через метр,
>  а через полтора? а то стяжек не хватает


нельзя


 
Anatoly Podgoretsky ©   (2010-03-01 12:53) [17]

> Игорь Шевченко  (01.03.2010 12:38:16)  [16]

Наоборот надо докупать, метр это слишком круто.



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

Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.066 c
15-1274255137
Дмитрий С
2010-05-19 11:45
2010.08.27
Есть у кого опыт написания приложений для Apple IPod/IPhone?


2-1267946028
serhiyiv
2010-03-07 10:13
2010.08.27
Градиент


2-1268318095
rust-02
2010-03-11 17:34
2010.08.27
Нужно считать текстовой файл до определённых слов. delphi


15-1264431625
dmk
2010-01-25 18:00
2010.08.27
Касперский ругается на форум


2-1268605992
Дмитрий
2010-03-15 01:33
2010.08.27
отправка пакета ( TcpClient )





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский