Translating standard messages from English

Direct Oracle Accessは生成された全てのメッセージに文字列定数を使います。もし必要ならば、アプリケーション内でこれらのメッセージを英語から自国語に翻訳するためにオーバールールすることが出来ます。

TOracleDataSet messages

TOracleDataSet,によって生成された標準のメッセージを翻訳するために、つぎの文字列定数はOracleData unit内で定義されています：

const // Allow translation of dataset messages

dmRecordLocked:  string = 'Record is locked by another user';

dmRecordChanged: string = 'Record has been changed by another user';

dmRecordDeleted: string = 'Record has been deleted by another user';

アプリケーション内で翻訳されたメッセージを実行するために、初期化セクション内の標準メッセージをオーバールールするユニットを作成し、それをプロジェクトにインクルードしてください:

unit DOADutch;

interface

implementation

uses OracleData;

initialization

begin

// Translate dataset messages to Dutch

dmRecordLocked  := 'Record is gereserveerd door een andere gebruiker';

dmRecordChanged := 'Record is gewijzigd door een andere gebruiker';

dmRecordDeleted := 'Record is verwijderd door een andere gebruiker';

end;

end.

TOracleLogon messages

次の文字列定数はOracleLogonユニットの中で定義され、Logonダイアログを翻訳するためにオーバールールされます：

const // Allow translation of the Logon dialog

ltLogonTitle:     string = 'Oracle Logon';

ltPasswordTitle:  string = 'Change password';

ltConfirmTitle:   string = 'Confirm';

ltUsername:       string = 'Username';

ltPassword:       string = 'Password';

ltDatabase:       string = 'Database';

ltConnectAs:      string = 'Connect as';

ltNewPassword:    string = 'New password';

ltOldPassword:    string = 'Old password';

ltVerify:         string = 'Verification';

ltVerifyFail:     string = 'Verification failed';

ltChangePassword: string = 'Do you wish to change your password now?';

ltExpired:        string = 'Your password has expired';

ltOKButton:       string = 'OK';

ltCancelButton:   string = 'Cancel';

次のコードはLogonダイアログのテキストをドイツ語に翻訳し、TOracleLogonコンポーネントを実行します。 このタスクを実行するOracleLogonユニットをユニットのuses節に追加しなくてはいけません。

begin

ltLogonTitle   := 'Anmeldung';

ltUsername     := 'Benutzer';

ltPassword     := 'Passwort';

ltDatabase     := 'Datenbank';

ltOKButton     := 'OK';

ltCancelButton := 'Abbruch';

MyLogonDialog.Execute;

end;