unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DbiTypes, DbiProcs, DbiErrs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
RichEdit1: TRichEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function SearchAndSelect(RichEdit: TRichEdit; SearchText: string): Boolean;
var
Position: Integer;
begin
Result := False;
with RichEdit do
begin
Lines.BeginUpdate;
Position := FindText(SearchText, 0, Length(RichEdit.Text), [stMatchCase]);
if Position <> -1 then
begin
SetFocus;
SelStart := Position;
SelLength := Length(SearchText);
Result := true;
end;
Lines.EndUpdate;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not SearchAndSelect(RichEdit1, 'Internal Symbol') then
ShowMessage('일치하는 문자열이 없습니다');
end;
// 아래는 예제 문자열을 만들기 윈한 것입니다
procedure TForm1.FormCreate(Sender: TObject);
var
Category: byte;
Code: byte;
ResultCode: word;
ErrorString: array[0..DBIMAXMSGLEN + 1] of char;
OutString: string;
begin
// BDE 환경을 초기화 한다
DbiInit(nil);
RichEdit1.Lines.Clear;
for Category := ERRCAT_NONE to ERRCAT_RC do
for Code := 0 to 255 do
begin
ResultCode := (Category shl 8) + Code;
// error code 에 해당하는 메시지를 구한다
DbiGetErrorString(ResultCode, ErrorString);
if StrLen(ErrorString) > 0 then // 주어진 에러코드의 설명이 있는것만 발취
begin
OutString := Format('%6d %0.4x %s', [ResultCode, ResultCode, ErrorString]);
RichEdit1.Lines.Add(OutString);
end;
end;
// BDE 로 부터 접속을 해제하여 사용한 자원을 반납한다
DbiExit;
end;
end. |
|
