任何分隔符都有可能与你数组中的字符相同,而且还要解析,麻烦,所以不可采用分隔符的形式,用流的方式就很好实现//读取procedure TForm1.Button1Click(Sender: TObject);var abc: array[0..511] of Char; MS: TMemoryStream;begin FillChar(abc,512,#0); //初始化内存 MS:= TMemoryStream.Create; try MS.Clear; TBlobField(ADOTable1.FieldByName('字段名')).SaveToStream(MS); MS.Position:= 0; Move(pchar(MS.Memory^), abc, MS.Size); finally MS.Free; end;end;//保存procedure TForm1.Button2Click(Sender: TObject);var abc: array[0..511] of Char; MS: TMemoryStream;begin MS:= TMemoryStream.Create; try MS.Clear; MS.Write(abc, 512); MS.Position:= 0; TBlobField(ADOTable1.FieldByName('字段名')).Clear; TBlobField(ADOTable1.FieldByName('字段名')).LoadFromStream(MS); finally MS.Free; end;end;