Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
Отображение 16-ричного значения в Delphi |
Философия, технологии, алгоритмы! |
|
Опции темы |
05.12.2002, 20:54 | #1 |
З/-\подлостроитель
Сообщений: 51
Регистрация: 16.05.2002
Возраст: 39
Не в сети |
Отображение 16-ричного значения в Delphi
Есть прога
unit Prog11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ShellAPI; type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; Button2: TButton; OpenDialog1: TOpenDialog; Button3: TButton; Button4: TButton; Button5: TButton; StaticText1: TStaticText; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.Button2Click(Sender: TObject); begin if opendialog1.Execute then Memo1.Lines.LoadFromFile(opendialog1.FileName); end; procedure TForm1.Button3Click(Sender: TObject); begin if opendialog1.Execute then Memo1.Lines.SaveToFile(opendialog1.FileName); end; procedure TForm1.Button4Click(Sender: TObject); begin WinExec(PChar('calc.exe'), SW_ShowNormal); end; procedure TForm1.Button5Click(Sender: TObject); begin Memo1.Lines.Clear; end; end. Как изменить (или добавить) в код, что бы по нажатия кнопки, текст из memo1 отображался там же но в 16-ричном виде? |