Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Помогите с потоками! 


daos   (2002-03-22 16:23) [0]

Можно ли в поток записавать данные динамически и считываит их так-же т.е. в файловый поток текстового файла сначала записать 10 строк по одной, а потом так же их считать?



Digitman   (2002-03-22 16:35) [1]

Можно.



daos   (2002-03-22 17:03) [2]

А как? я пробывал Read Write но вылазит ошибка, пожалуйста киньте пример.



yaJohn   (2002-03-22 17:15) [3]

Пример тривиален. Проще посмотреть на Ваш код.
Интуиция подсказывает - между write и read незаслуженно забыт seek.



daos   (2002-03-23 07:57) [4]

Большое спасибо, но у меня так ничего и не получилось, вот код, который я пытаюсь выполнить

var
Form1: TForm1;
MyStream:TMemoryStream;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s,s2:string;
begin
s:= edit1.Text;
s2:=Edit2.Text;
MyStream.Create;
MyStream.Write(s,length(s));
MyStream.Write(s,length(s2));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s,s2:String;
begin
//здесь надо прочитать s и s2 в label1.Caption, label2.Caption
//но как это сделать я не знаю (ошибка вылазит при попытке записи
end;

end.



MBo   (2002-03-23 08:41) [5]

писать строки в поток:
l:=length(s);
MyStream.Write(l,sizeof(l));
MyStream.Write(s [1],l);

читать
(стоя в начале или в нужной позиции либо после прошлого read, либо seek)
MyStream.Read(l,sizeof(l));
setlength(s,l);
MyStream.Read(s[1],l);




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
14-9640           Adder                 2002-02-22 00:58  2002.04.04  
Дыра в суперновом компоненте Microsoft Visual C++ .NET %О


7-9652            Droid                 2002-01-06 09:34  2002.04.04  
Помогите чем можите!


1-9470            Аркадий               2002-03-25 17:00  2002.04.04  
текст из файла


1-9521            wal                   2002-03-22 14:40  2002.04.04  
---|Ветка была без названия|---


1-9575            BlackJack             2002-03-23 19:36  2002.04.04  
Как сделать так чтобы при нажатии на 0 ряд(столбец) в DrawGrid ячейки западали вниз?