GetStr reads the specified field from internal memory.
Be careful. The first field has a number 0 and the last field has a number FieldCount-1.
You have to read a record with ReadRecord before using GetStr.
It returns a string for all fields (Character, Numeric, Date etc).
var
dbf :integer;
r :integer;
begin
dbf := OpenBase( 'filename.dbf' );
if dbf <> 0 then
begin
for r := 0 to RecCount(dbf)-1 do
begin
ReadRecord(dbf, r);
showmessage( GetStr(dbf, 0) );
end;
CloseBase(dbf);
end;
end.
