我要嗝屁了，TMemo控件保存问题，100分献上

2002-06-12 02:20:52 160 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

caomeng2002 墨衍会员 · AI 创作全网分发关注 + 加入社区

将雷达连接到树莓派的串口 dev/ttyAMA0 是树莓派的主要 UART（用于 GPIO 引脚 8 (TXD) 和 10 (RXD)）。通常，树莓派使用 GPIO 引脚 8 (TXD) 和 10 (RXD) 进行串口通信。树莓派上通常有两个串口：/dev/ttyS0 和 /dev/ttyAMA0。你需要确认雷达的 TX 和 RX 引脚，并与树莓派的对应引脚连接。VCC（电源）连接到树莓派的 3.3V 或 5V（根据雷达的要求）MR（Receive）连接到树莓派的 GPIO 8 (TXD)GND（地）连接到树莓派的 GND。阅读详情

我动态生成一些TMEMO控件，并在上面可以输入一些文字，因为在下次打开时要原样打开所以我用流TFileStream保存和打开（用WriteComponentRes和ReadComponentRes），类以注册（
TMetaClass *cl[1]={__classid(TMemo)}
RegisterClasses(cl,0);
）
为什么当控件上没有文字时保存的可以打开，而有文字的就报错呢？是不是还有什么类没注册呀？

...全文

在 Windows 10 中通过 WSL2 安装 vLLM 部署本地大模型的方法和步骤通过 WSL2 在 Windows 10 中部署 vLLM 的核心优势是兼顾 Windows 生态与 Linux 环境的 GPU 加速能力，适合需要在 Windows 下开发但依赖 vLLM 高性能推理的场景。相比原生 Windows 部署（Ollama 等工具），该方案性能更优（接近原生 Ubuntu），且支持更大模型和量化优化。若追求极致性能，建议直接使用 Ubuntu 系统；若必须依赖 Windows 工具链，WSL2 + vLLM 是当前最优选择。阅读详情

caomeng2002

C++ Builder 13,871 成员 102,696 内容

+ 关注 + 加入社区

切换为时间正序

烟波三千里人鬼五百年 2002-08-14

打赏
举报

嗬嗬，有用就好，一起进步！多多支持BCB论坛！

caomeng2002 2002-08-14

打赏
举报

今天试了一下(〖烟波浩淼三千里、人鬼殊途五百年〗) 的方法，感觉比我原来的方法好！

钛哥 2002-08-14

打赏
举报

mark

caomeng2002 2002-08-13

打赏
举报

谢谢大家！
贴了这么长时间，我其实早就解决了！不过和(〖烟波浩淼三千里、人鬼殊途五百年〗) 有一些不同。当然大部分还是一样的。关键是我把“Lines.Strings = (“”）”分开处理了。这样可以生成“后”在添加，就是这样。非常感谢[烟波浩淼三千里、人鬼殊途五百年〗等高手，我的好好研究研究你的代码，给分了。再次感谢各位帮忙！

烟波三千里人鬼五百年 2002-08-05

打赏
举报

已解决....
AnsiString ComponentToString(TComponent* Component)
{

TMemoryStream* ms;
TStringStream* ss;
ss = new TStringStream(" ");
ms = new TMemoryStream;
try{

ms->WriteComponent(Component);
ms->Position = 0;
ObjectBinaryToText(ms, ss);
ss->Position = 0;
return ss->DataString;
}
__finally
{
delete ms;
delete ss;
}
return ss->DataString;
}
void StringToComponent(TComponent* Component,const AnsiString& Value)
{

TStringStream* ss;
TMemoryStream* ms;

ss = new TStringStream(Value);
try
{
ms = new TMemoryStream;
try
{
ObjectTextToBinary(ss, ms);
ms->Position = 0;
ms->ReadComponent(Component);
}
__finally
{
delete ms;
}
}
__finally
{
delete ss;
}
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMemo* M = new TMemo(this);
M->Parent = this; //Must Have

M->Top = 12;
M->Left =24;
M->Lines->Add(Now());
M->Lines->Add(Now());
M->Lines->Add(Now());

Memo1->Text = ComponentToString(M);
delete M;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{

TMemo *M = new TMemo(this);
M->Parent = this; //Must Have

StringToComponent(M,Memo1->Text);
}

烟波三千里人鬼五百年 2002-08-05

打赏
举报

贴主不见了...:(

shally5 2002-08-04

打赏
举报

是不是有0啊！Memo是不能重读char为0的字符的也就是说字符的十六进制等于0的字符是读不出来的。

烟波三千里人鬼五百年 2002-08-04

打赏
举报

mark

creativitysoft 2002-08-03

打赏
举报

你的文件保存成功没！

kingcaiyao 2002-08-03

打赏
举报

你不如这样：
用Ini文件保存它的文本和控件在窗体上的位置
用.dat保存控件资源。

Sephil 2002-08-03

打赏
举报

试试 TReader 和 TWriter
具体看帮助，我自己也不是很熟悉的

caomeng2002 2002-06-12

打赏
举报

是动态生成的TMemO控件
请看原码：
....................
.................
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
TMetaClass *cl[5]={__classid(TCustomMemo),__classid(TEdit),__classid(TMemo),__classid(TButton),__classid(TWaibuyu)};
RegisterClasses(cl,4);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::abc(int x,int y,int n)
{
if(n==0)
{ TMemo *memo=new TMemo(this);
memo->Parent=Form1;
memo->Left=x;
memo->Top=y;
memo->Text=""; }
else if(n==1){ TWaibuyu *memoA=new TWaibuyu(this);
memoA->Parent=Form1;
memoA->Left=x;
memoA->Top=y;
memoA->Caption="DDDDDDDDD";
} else {
TEdit *memoAq=new TEdit(this);
memoAq->Parent=Form1;
memoAq->Left=x;
memoAq->Top=y;
}

}
//------------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if(RadioButton1->Checked==true)
abc(X,Y,0);
else if(RadioButton2->Checked==true)
abc(X,Y,1);
else if(RadioButton4->Checked==true)
abc(X,Y,2);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::save1Click(TObject *Sender)
{
TFileStream *com;
if(SaveDialog1->Execute())
com=new TFileStream(SaveDialog1->FileName,
fmCreate );
try {
for(int i=0;i<ControlCount;i++)
{

if(Controls[i]!=Panel1)
com->WriteComponentRes(SaveDialog1->FileName,Controls[i]);
}
}catch(...)
{ com->Free(); }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::open1Click(TObject *Sender)
{
TFileStream *com;
TComponent *newcom;
if(OpenDialog1->Execute())
com=new TFileStream(OpenDialog1->FileName,
fmOpenRead);
try {
while(com->Position< com->Size)
{
newcom=com->ReadComponentRes(NULL);
InsertControl((TControl*)newcom);
//Counter++ ;
}
}catch(...)
{ com->Free(); }
}
...................................

我不懂电脑 2002-06-12

打赏
举报

TMemo1->Lines->SaveToStream(abc);

caomeng2002 2002-06-12

打赏
举报

别拉着我，，别拉着我，别拉着我 ---------让我跳下去，~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~（嘿嘿，没人拉着你）

caomeng2002 2002-06-12

打赏
举报

没有一个人和我说话，活者真没意思死了算了：~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~死了。

caomeng2002 2002-06-12

打赏
举报

因为我的TMEMO是动态生成的有很多，在生成流时（MEMO上有文字）已经把文字保存了，只是读回来时出错，没有文字时就可以。

ai0ai 2002-06-12

打赏
举报

对啊，保存到文件里，再运行的时候读出来就可以了。

jerry921 2002-06-12

打赏
举报

为什么不把你的文字存到文件里去呢？
可以这样：
TMemo1->Lines->SaveToFile("abc.txt");

TMemo1->Lines->LoadFromFile("abc.txt");

caomeng2002 2002-06-12

打赏
举报

连个人影都没有。看来这还成了难题了。

我要嗝屁了，TMemo控件保存问题，100分献上

相关推荐