星界边境fu怎么抓蜜蜂:delphi菜鸟问题

来源：百度文库编辑：中科新闻网时间：2024/05/11 04:33:54

st:tmemorystream;
把st的内容给label1

你可以查看帮助阿，里面有很详细的介绍信息：

procedure TForm1.Button1Click(Sender: TObject);

var
TempStream : TMemoryStream;
begin
TempStream := TMemoryStream.Create;

ListBox1.Items.SaveToStream(TempStream); // write list box contents to the
// stream
TempStream.Position := 0; // reset to the beginning of the stream
RichEdit1.Lines.LoadFromStream( TempStream); // load stream contents into rich
// edit control

TempStream.Free;
end;

必须做一个TStringList对象作为中转

代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
MS:TMemoryStream;
SL:TStringList;
begin
MS:=TMemoryStream.Create;
//这里写你对内存流的操作过程
SL:=TStringList.Create;
SL.LoadFromStream(MS);
label1.Caption:=S.Text;
end;

当你按下Button时，程序就把内存流中的东西输出到Label了

delphi菜鸟问题关于DELPHI的菜鸟问题问个DELPHI菜鸟级的问题？ delphi问题 DELPHI问题 DELPHI问题 DELPHI问题 DELPHI问题 Delphi问题 delphi 问题