Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Восстановление записи dBase
После удаления записи из таблицы (dBase), возможно ли ее восстановить? Какие идеи?
functionGetTableCursor(oTable: TTable): hDBICur; var
szTable: array
[0..78] of
Char; begin
StrPCopy(szTable, oTable.TableName); DbiGetCursorForTable(oTable.DBHandle, szTable, nil
, Result); end
; function
dbRecall(oTable: TTable): DBIResult; begin
Result := DbiUndeleteRecord(GetTableCursor(oTable))); end
;
Могли бы вы дать пример использования функции?
Предположим, у вас на форме имеется кнопка (с именем 'butRecall'), восстанавливающая текущую отображаемую (или позиционируемую курсором) запись, данный код, будучи расположенный в обработчике события кнопки OnClick (вместе с опубликованным выше кодом), это демонстрирует (продвигаясь в наших предположених дальше, имя вашего объекта TTable - Table1 и имя текущей формы - Form1):
procedureTForm1.butRecallClick(Sender : TObject); begin
if
dbRecall( Table1 ) <> DBIERR_NONE then
ShowMessage( 'Не могу восстановить запись!' ); end
;