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

Вниз

Помогите с потоками!   Найти похожие ветки 

← →
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.

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c