dataset|state
看帮助
[datasets, states,]
procedure TForm1.Button1Click(Sender: TObject);
var
Stream1: TBlobStream;
begin
Table1.Edit;
if Table1.State = dsEdit then
begin
Stream1 := TBlobStream.create(Table1Notes, bmReadWrite);
try
Stream1.Seek(60, 0); { Move to byte 60}
Stream1.Truncate; { Delete from current position (60) to end of stream.}
Table1.Post;
finally
Stream1.Free;
end;
end;
end;