/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 651
от 15.11.2006, 15:35

Вопрос № 61.955

Ещё раз здравствуйте уважаемые эксперты! Хочу ещё раз поставить свой вопрос, но с подробным уточнением. Задача состоит в следующем: необходимо создать форму, в которой должны быть размещены -Edit1,Edit2,Button1,Button2 плюс для надписей использовать Label1,2,3.В первый Edit вводится 1 число, во второй Edit - второе. По нажатию первой кнопки должен произойти ввод чисел, по нажатию второй - выход из программы. Посредством двойным нажатием левой кнопки мыши необходимо из первого числа вычесть второе.По чём должен быть двойной щелчёк кнопки, я сам не понял, так как это не оговаривается, я предположил, что двойное нажатие должно выполняться внутри Edit1,так как далее в задаче поясняется,что нужноо найти событие для окна Edit1,которое позволит выполнить вычитание. Более того в задании указывается, что для решения этой задачи необходимо использовать одно из событий формы - onActivate или onCreat, я так и не понял, как его здесь применять. На последнем шаге задачи необходимо по нажатию кнопки ESC в окно Edit1 вернуть первоначальное число. Я написал программу, но не всё так гладко.Вычитание происходит, но по нажатию кнопки ESC не происходит возвращение 1 числа в окно Edit1. И я так и не смог применить события onActivate или onCreat. И ещё, как можно при нажатии кнопки, вводить автоматически числа в окна Edit1,2? Пожалуйста помогите! За ранее благодарен!!! Прикладываю листинг Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1DblClick(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Enabled:=True; Edit2.Enabled:=True; end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; procedure TForm1.Edit1DblClick(Sender: TObject); begin Edit1.Text:=FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text)); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (Key='Esc') then Edit1.Text:=Edit1.Text+Edit2.Text; end; end.

Отправлен: 09.11.2006, 16:11 Вопрос задал: KiberZero (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Савенко Вадим Иванович Здравствуйте, IskanderD! Смотрите, разбирайтесь. Надеюсь, поможет решить проблему. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit1DblClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a, b: integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= IntToStr(a); Edit2.Text:= IntToStr(b); end; procedure TForm1.Edit1DblClick(Sender: TObject); begin Label1.Caption:= 'Результат'; Edit1.Text:= IntToStr(a - b); Button1.Enabled:= false; end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_ESCAPE) then begin Label1.Caption:= 'Первое число'; Edit1.Text:= IntToStr(a); Button1.Enabled:= true; end; end; procedure TForm1.FormCreate(Sender: TObject); begin a:= 10; b:= 5; end; end.

Ответ отправил: Савенко Вадим Иванович (статус: Студент) Ответ отправлен: 09.11.2006, 16:59 Оценка за ответ: 5 Комментарий оценки: Большое спасибо!

Отвечает: Monah Здравствуйте, IskanderD! Добавлю procedure TForm1.FormActivate(Sender: TObject); begin a:= 10; b:= 5; end; --------- festina lente

Ответ отправил: Monah (статус: 8-ой класс) Ответ отправлен: 10.11.2006, 06:20 Оценка за ответ: 5

Отвечает: PaVeL_Ekt Здравствуйте, IskanderD! Вот так должно работать!!! Только не забудь событие у Edit-ов OnKeyDown прицепить к обработчику OnKeyDown формы !!! Удачи !!! P.S. Пример я расписал специально, преподы (иль кто там) такое любят, но если хочеш можно код уменьшить !!! Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1DblClick(Sender: TObject); Procedure FormCreate(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Num1, Num2: Integer; implementation {$R *.dfm} Procedure TForm1.FormCreate(Sender: TObject); Begin Edit1.Enabled:=True; Edit2.Enabled:=True; End; procedure TForm1.Button1Click(Sender: TObject); begin Num1:=StrToInt(edit1.Text); Num2:=StrToInt(edit2.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin Application.terminate; end; procedure TForm1.Edit1DblClick(Sender: TObject); begin Num1:=Num1-Num2; Edit1.Text:=IntToStr(Num1); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word); begin If (Key=27) and (num1>0) and (num2>0) then Begin Num1:=Num1+Num2; Edit1.Text:=IntToStr(Num1); End; end; end. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 10.11.2006, 07:28 Оценка за ответ: 5

Вопрос № 61.960

Здраствуйте, Я рисую на канве что-либо процедурой в приложении. но когда начинаешь бысто водить мышкой, то рисуемая фигура получается разрывная. Как этого можно избежать? Приложение: procedure Tfrm.ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then begin img.Canvas.Pen.Color:=rgb(255,0,0); img.Canvas.Brush.Color:=rgb(255,0,0); Img.Canvas.Rectangle(x-1,y-1,x+1,y+1); end

Отправлен: 09.11.2006, 17:34 Вопрос задал: Yujin (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Юрий Викторович Здравствуйте, Yujin! Попробуйте использовать функцию lineTo вместо Rectangle И уберите из процедуры img.Canvas.Pen.Color:=rgb(255,0,0); img.Canvas.Brush.Color:=rgb(255,0,0); вынесите их куда-нибудь отдельно, чтобы не выполнять лишние действия, повысите производительность.

Ответ отправил: Юрий Викторович (статус: 1-ый класс) Ответ отправлен: 09.11.2006, 18:49

Отвечает: PaVeL_Ekt Здравствуйте, Yujin! Я попробовал Ваш пример, у меня только точки рисовал в 2 пикселя: Суть здесь такова в глобальные переменные вводим PX, PY: Integer;// Предыдущие координаты; BX, BY: Integer;//Первичные координаты; Ident: integer;//идентификатор фигуры присваеветься при нажатии на кнопку на панели инструментов (пример) Ниже приведен рабочий код, просто надо доработать немного (затирает все, что нарисованно ниже); Это можно сделать используя Stream, просто каждый раз при изменении рисунка перерисовывать canvas. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Mask, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Ident, px, py, bx, by: integer; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin Ident:=0; end; procedure TForm1.FormCreate(Sender: TObject); begin ident:=-1; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Ident:=1; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin Ident:=2; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin bx:=x; by:=y; px:=x; py:=y; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then begin case ident of 0:Begin canvas.Pixels[x,y]:=clBlack; End; 1:Begin canvas.Pen.Color:=clBtnFace; canvas.Rectangle(bx,by,px,py); canvas.Pen.Color:=clBlack; canvas.Rectangle(bx,by,x,y); End; 2:Begin canvas.Pen.Color:=clBtnFace; canvas.Ellipse(bx,by,px,py); canvas.Pen.Color:=clBlack; canvas.Ellipse(bx,by,x,y); End; end; px:=x; py:=y; end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ident:=-1; end; end. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 10.11.2006, 07:40

Вопрос № 61.967

добрый день эксперты у меня такой вопрос : когда я создаю базу данных в ''.*db'' то умещается только 100 записией а чтобы составлять дальше то приходится создавать ещё один файл. как мне соединить сделать чтобы прога видела оба файла но работала как с одним спасибо

Отправлен: 09.11.2006, 18:53 Вопрос задал: Hameleon (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: PaVeL_Ekt Здравствуйте, Hameleon! Из Вашего вопроса я вижу, что вы создаете БД, но вопрос почему .*DB (опечатка?) насколько мне известно файл БД не имеет ограничения по количеству записей. По возможности пришлите код программы, там и посмотрим в чем дело !!! (можно на майл) --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 10.11.2006, 06:47

Вопрос № 62.019

Сколько занимает каждый элемент Tbits - 1 бит или 1 байт?

Отправлен: 10.11.2006, 01:44 Вопрос задал: Blackie (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: sir henry Здравствуйте, Blackie! Узнать это просто. Свойство TBits.Bits[Index] возвращает тип Boolean. Какой размер занимает Boolean на Вашей машине?

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 10.11.2006, 04:04 Оценка за ответ: 5

Отвечает: PaVeL_Ekt Здравствуйте, Blackie! A Boolean variable occupies one byte of memory, a ByteBool variable also occupies one byte, a WordBool variable occupies two bytes (one word), and a LongBool variable occupies four bytes (two words). , что означает Boolean, ByteBool - 1 байт, WordBool - 2 байта (слово), LongBool - 4 байта Двойное слово --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 10.11.2006, 06:54 Оценка за ответ: 5

Отвечает: Маренич Владимир Здравствуйте, Blackie! TBits - класс объявленный в модуле Classes. Если посмотрите на исходники, то можете увидеть, что там есть два поля FBits: pointer - указатель на массив "битов" и FSize: integer - размер массива в битах Глядя на методы этого класса можно с уверенностью сказать, что Ваши биты будут занимать не по одному байту, а по одномо биту. Но выделение памяти осуществляется кратно 32-м битам (4 байта). Т.е. если у Вас 10 бит, то В памяти будет выделено 4 байта памяти. Если 320 бит, то будет выделено 10 байтов памяти и т.д.

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 12.11.2006, 00:47

Вопрос № 62.033

Здраствуйте. Я выполняю какое либо действие в таймере с интревалом 300, например двигаю точку (см в приложении). Чтобы она быстрее двигалась нужно по логике уменьшить интервал. Уменьшаем: 200,100,10 разницы никакой. Как заставить точку двигаться быстрей? Из-за чего так происходит? Приложение: x:=1; xx:=x+1; y:=1; ... begin canvas[x,y]:=rgb(0,0,0); canvas[xx,y]:=rgb(0,0,255); x:=xx; inc(xx); end;

Отправлен: 10.11.2006, 07:47 Вопрос задал: Yujin (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Monah Здравствуйте, Yujin! так происходит из за дискретности интервалов таймера. Фактически, два близких значения интервала не дадут вообще ни какой разницы. Если не ошибаюсь, дискретность равна 0,055 секунды. Для обхождения этого используйте бесконечный цикл в котором будет стоять sleep(10); задерка на 0,01 секунды. application.procesmessage; обработка очереди сообщений if application.terminated then exit; выход из цикла при закрытии приложения --------- festina lente

Ответ отправил: Monah (статус: 8-ой класс) Ответ отправлен: 10.11.2006, 08:08

Отвечает: PaVeL_Ekt Здравствуйте, Yujin! я пробовал Timer.Interval=1, также Sleep(1) толку не какого, но вот, что надумал если при интервале таймера равном 1 увеличить шаг прохождения точки на 3, то она в 3 раза быстрее полетит !!! (см. пример) Приложение: procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin canvas.Pixels[xx,y]:=ClRed; canvas.Pixels[x,y]:=clBtnFace; x:=x+3; xx:=xx+3; end; procedure TForm1.Button1Click(Sender: TObject); begin x:=1; xx:=x+3; y:=1; timer1.Enabled:=true; end; --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 10.11.2006, 08:15

Отвечает: Melamed Здравствуйте, Yujin! Я бы на вашем месте восползовался мултимедийном таймером и рисование делал в отдельном потоке в цыкле. Модуль MMSystem нужен для API функций работы с мултимедийном таймером Приложение: unit unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,MMSystem; TTimerThread = class(TThread) private FCanvas:TCanvas; FTime:integer; tmEvent:THandle; StopEvent:THandle; IDTimer:UINT; Fx:integer; Fxx:integer; Fy:integer; public constructor Create(aTime:integer; //интервал времени aCanvas:TCanvas) //канвас на котором рисуют procedure Execute;override; destructor Destroy;override; end; implementation constructor TTimerThread.Create(aTime:integer;aCanvas:TCanvas); begin inherited Create(TRUE); FreeOnTerminate:=FALSE; FCanvas:=aCanvas; FTime := aTime // Cсоздаем событие которое таймера tmEvent := CreateEvent(nil,FALSE,FALSE,Nil); Priority := tpHigher; Resume; // Создаем мултимедийный таймер IDTimer := timeSetEvent(aTime,0,Pointer(tmEvent),0, TIME_PERIODIC or TIME_CALLBACK_EVENT_SET); // Запускаем мултимедийный таймер timeBeginPeriod(aTime); end; procedure TTimerThread.Execute; var i:integer; DCmem:HDC; hBmp:HBITMAP; aEvents:array [0..1] of THandle; Event:DWORD; begin aEvents[0]:=tmEvent; while(true) begin Event:=WaitForMultipleObjects(1,@aEvents,FALSE,INFINITE)-WAIT_OBJECT_0; //Блокируем рисование в основном потоке программы fCanvas.Lock; try canvas[x,y]:=rgb(0,0,0); canvas[xx,y]:=rgb(0,0,255); x:=xx; inc(xx); finally fCanvas.Unlock; end; end; end; destructor TTimerThread.Destroy; begin // Остановка таймера timeEndPeriod(FTime); //Удаление таймера timeKillEvent(IDTimer); //Уничтожение события CloseHandle(tmEvent); inherited; end;

Ответ отправил: Melamed (статус: 7-ой класс) Ответ отправлен: 10.11.2006, 13:45

Вопрос № 62.043

Всем добого дня. У меня следующая задача - необходимо сделать DLL в которой будет некий класс (TMyObject = class...) . Так вот, вохникает вопрос использования концепции ООП и DLL. В том плане как мне в приложении, использующем этот DLL, реализовать любое число объектов (var_1 : TMyObject; var_2 : TMyObject; и т.д. ... )? P.S. На сколько я понял DLL не экспортирует данные, а только лишь процедуры и функции, а следовательно ничего кроме методов для приложения не будет доступно. Поэтому выходит так, что одна DLL - один объект (его реализация) (для одного процесса)...

Отправлен: 10.11.2006, 09:43 Вопрос задал: Solodov Evgeniy Vladimirovich (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 12)

Отвечает: sir henry Здравствуйте, Solodov Evgeniy Vladimirovich! Вы правильно заметили, что DLL может экспортировать только процедурыфункции. Поэтому какие бы Вы объекты в своем DLL не объявляли, использовать их можно только внутри DLL.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 10.11.2006, 10:43 Оценка за ответ: 5 Комментарий оценки: Спасибо что откликнулись. :) Жаль что Вы ничего мне не ответили...

Отвечает: Monah Здравствуйте, Solodov Evgeniy Vladimirovich! Несовсем так. DLL загружается в адресное пространство программы, поэтому можно создать в DLL функцию которая будет создавать объект класса и возвращать указатель на созданный него. function(Name:PChar, Owner:TComponent):TMyClass; примерно так. Описание класса вынисете в отдельный модуль и прилинкуйте его и к программе и к DLL. --------- festina lente

Ответ отправил: Monah (статус: 8-ой класс) Ответ отправлен: 10.11.2006, 10:53 Оценка за ответ: 5 Комментарий оценки: Я правилно Вас понял, что для моего случая в DLL следует помещать только методы, а все поля и свойства (описание объекта) должны быть в отдельном модуле?

Отвечает: Werewolf Здравствуйте, Solodov Evgeniy Vladimirovich! 1)Задачу можно реализовать с помощью интерфейсов пример //UnitIntf.pas unit UnitIntf; interface type IMyObjectIntf = interface ['{D52BC24A-7E73-4F1E-88A9-AD01FC747272}'] procedure ShowMess; end; implementation end. 2) сборке основной программы и dll c пакетом rtl 3) Dll должна экспортировать функцию регистрации, при вызове которой в главном приложении будет зарегистрирован нужный класс процедурой RegisterClass(TMyObject) Пример: //lib.dpr library lib; uses UnitMyObject in 'UnitMyObject.pas', UnitIntf in 'UnitIntf.pas'; exports Regist; begin end. 4) класс TMyObject должен быть наследником TPersistent а для поддержки интерфейсов TInterfacedPersistent //UnitMyObject.pas unit UnitMyObject; interface uses Classes, UnitIntf; type TMyObject = class(TInterfacedPersistent, IMyObjectIntf) procedure ShowMess; end; function Regist: integer; stdcall; export; implementation uses windows; procedure TMyObject.ShowMess; begin OutputDebugString('Привет'); end; function Regist: integer; begin Classes.RegisterClass(TMyObject); result := 0; end; end. 5. В главной программе должен быть подключен тот же модуль интерфейсов Пример //app.dpr program app; uses Forms, main in 'main.pas' {Form1}, UnitIntf in 'UnitIntf.pas'; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. 6)вызываем регистрацию класса ищем класс по имени обявляется переменная типа TInterfacedPersistent и из неё берем нужный интерфейс пример //main.pas unit main; interface uses Forms; type TForm1 = class(TForm) procedure FormActivate(Sender: TObject); end; var Form1: TForm1; function Regist: integer; external 'lib.dll' name 'Regist'; implementation uses UnitIntf, Classes, Sysutils; type TInterfacedPersistentClass = class of TInterfacedPersistent; {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); var cl: TInterfacedPersistentClass; obj: TInterfacedPersistent; iobj: IMyObjectIntf; begin Regist; cl := TInterfacedPersistentClass(FindClass('TMyObject')); obj := cl.Create; iobj := obj as IMyObjectIntf; iobj.ShowMess; iobj := nil; FreeAndNil(obj); end; end.

Ответ отправил: Werewolf (статус: Студент) Ответ отправлен: 10.11.2006, 11:41 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Попробую разобраться.:)

Отвечает: Маренич Владимир Здравствуйте, Solodov Evgeniy Vladimirovich! Может я не совсем правильно понял, но попробую помочь. Действительно, организовать ООП не получиться, но кое-что можно состряпать. Для программы DLL-это "черный ящик с дырками". Т.е. Данные не доступны, но есть возможнось реализовать "подглядывание" с помощью експортируемых DLL-кой процедур (функций). И можно "наплодить" объектов сколько влезет. Напишу пример (в приложении). Приложение: //******* //DLL //******* type TMyObj = class private FTest: integer; public property Test: integer read FTest write FTest; end; //приложение на Delphi знает, что такое TObject //хотя можно использовать и pointer function NewMyObj(aTest: integer): TObject; begin Result:=TMyObj.Create; (Result as TMyObj).Test:=aTest; end; procedure FreeMyObj(Obj: TObject); begin Obj.Free; end; procedure SetMyObjTest(Obj: TObject; aTest: integer); begin (Obj as TMyObj).Test:=aTest; end; function GetMyObjTest(Obj: TObject): integer; begin Result:=(Obj as TMyObj).Test; end; exports NewMyObj, FreeMyObj, SetMyObjTest, GetMyObjTest; //******* //приложение //******* var p1, p2, p3: TObject; begin p1:=NewMyObj(1); p2:=NewMyObj(2); p3:=NewMyObj(3); try //.... finally FreeMyObj(p3); FreeMyObj(p2); FreeMyObj(p1); end; end; //можно использовать массив и делать все что вы //допишите в DLL

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 12.11.2006, 01:27 Оценка за ответ: 5 Комментарий оценки: Спасибо, похоже это то что мне нужно. Хотя непонятно как тоже самое сделать с Pointer?

Вопрос № 62.060

Здравствуйте! Как сделать в своей программе поддержку командной строки? Т.е. в командной строке пишешь имя своей проги, параметры, а она (прога) их выполняет? Заранее спасибо!

Отправлен: 10.11.2006, 12:06 Вопрос задал: Neiroman (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: PaVeL_Ekt Здравствуйте, Neiroman! Просто, создаете проэкт, из него убираете все формы, прописываете в USES все модули которые вам понадобяться, в теле проэкта пишите функции и процедуры обработки. ф-я для просмотра параметров: ParamStr(item) ParamStr(0)-полный путь и имя фашего EXE - файла Paramstr(1)-1 параметр. ParamCount - ф-я показывающая сколько параметров было введено в командной строке. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 10.11.2006, 12:25

Отвечает: Monah Здравствуйте, Neiroman! Все так только во первых все формы удалять не надо. Достаточно в модуле *.dpr или в onCreate главной формы проверить входные параметры. Но тут возможны подводные камни. все параметры разделены пробелами. поэтому путь содержащий "Programm Files" будет разделен на два параметра по пробелу. Чтоб этого избежать складывайте параметры через пробел. см.приложение. В S остются только параметры разделенные пробелами. Приложение: for i:=0 to ParamCount-1 do s:=s+' '+ParamStr(i); delete(s, 1,1); // Удаляем первый пробел i:=LenGTh(Application.ExeName); delete(S, 1, i); удаляем путь к программе. --------- festina lente

Ответ отправил: Monah (статус: 8-ой класс) Ответ отправлен: 10.11.2006, 12:37

Отвечает: Sattar uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var FileName,Command:string; i:integer; begin I:=pos('.exe',Edit1.Text); FileName:=copy(Edit1.Text,1,I+4); Command:=copy(Edit1.Text,I+4,Length(Edit1.Text)); ShellExecute(Handle,nil,PAnsiChar(FileName),PAnsiChar(Command),nil,SW_SHOW); end; procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 To ParamCount do Memo1.Lines.Add('Параметр '+ParamStr(i)); end;

Ответ отправил: Sattar (статус: 3-ий класс) Ответ отправлен: 10.11.2006, 19:12

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006