DELPHI 字符串转 数据流

Posted 2023-05-13

DELPHI 怎么把字符传化成数据流 保存到ACCESS中。再怎么把数据流传化成字符串读取出来。谢谢。。

参考技术A 把你的字符串写入TStringStream,然后存进去,比如:

var StrStream:TStreams;

StrStream:=TStringStream.Create('');
try
StrStream.WriteString('你的字符串');
//...
TBlobField(FieldByName('字段名')).LoadFromStream(StrStream);
//....
finally
StrStream.Free;
end;本回答被提问者采纳 参考技术B 直接字符串.

非要流就用TStringStream 参考技术C 可以直接存字符串到数据库，为什么要转换成数据流呢

Delphi字符串转日期，强大到窒息，VarToDateTime解决了困扰很久的小问题

procedure THRForm.Button1Click(Sender: TObject);
var
  D:TDateTime;
  s:string;
begin
  D:=VarToDateTime(‘05-10-14 04:35PM‘);
  S:=FormatDatetime(‘YYYY-MM-DD HH:MM:SS‘,D);
  showmessage(s);
end;

尤其是在进行数据库语句操作时，对于字符串的来源不确定因素太多，有了该函数用起来真的很方便。举例如下：

用VarToDateTime构建一个新的函数SetFieldDate，然后使用该函数为数据库时间字段赋值，只需

FQuery.Parameters.ParamValues[‘Brithday‘] := SetFieldDate(edit1.Text);

 

function SetFieldDate(str: string): Variant;
begin
  if str = ‘‘ then
    result := Null
  else
    result := StrToDateTime(FormatDatetime(‘YYYY-MM-DD‘, VarToDateTime(str)));
end;

当然上述函数也可以简化为：

1 function SetFieldDate(str: string): Variant;
2 begin
3   if str = ‘‘ then
4     result := Null
5   else
6     result := VarToDateTime(str);
7 end;