|
<< Click to Display Table of Contents >> Navigation: Apollo VCL Components > Apollo VCL Component Reference > TApolloTable > TApolloTable Methods > PutRecord |
Declaration
procedure PutRecord( cpRecord: PChar );
Description
Replaces an entire record with the contents of a defined record structure or character buffer (array of Char types).
Parameters
cpRecord: A pointer to a defined record structure (typedef) or an array of Char that contains the complete record contents including the hidden deletion flag field.
Delphi Example
procedure Form1.Button1Click(Sender: TObject);
var
caString: Array[0..255] of Char;
begin
with ApTbl do
begin
GoTop;
while not Eof do
begin
ApolloGetRecord( caString );
// If record is not deleted, copy it
if StrLComp( caString, '*', 1 ) <> 0 then
begin
ApDS2.AppendBlank;
// Must write out empty record first
ApDS2.Post;
// Then put back in Edit mode }
ApDS2.Edit;
ApDS2.PutRecord( caString );
end;
Skip( 1 );
end;
end;
end;
See Also