电
电暖气
Unregistered / Unconfirmed
GUEST, unregistred user!
[?]谁能知道如何在调试程序时,现场看TMemoryStream类型变量的内容
例子程序如下:
procedure TForm1.SpeedButton_data_processClick(Sender: TObject);
var
ms1:TMemoryStream;
b_zs_kind :byte;
begin
ms1:=TMemoryStream.Create;
ms1.Position:=0;
ms1.LoadFromFile('send.
dat');
ms1.free;
end;
例子程序如下:
procedure TForm1.SpeedButton_data_processClick(Sender: TObject);
var
ms1:TMemoryStream;
b_zs_kind :byte;
begin
ms1:=TMemoryStream.Create;
ms1.Position:=0;
ms1.LoadFromFile('send.
dat');
ms1.free;
end;