[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Какая ошибка вылазиет???

Code:

Types of actual and formal var parameters must be identical

???


+ Класс для работы с COM-портом:

Code:

_http://phorum.key.ru/viewtopic.php?t=8159

 

Code:

_http://forum.woweb.ru/topic2233.html

Code:

[B]http://forums.realcoding.net/index.php?showtopic=15417[/B]

Иногда перегружен

 

http://forums.realcoding.net/index.php?showtopic=15417 - пока видимо перегружен или тех работы!
Посмотришь http://forums.realcoding.net/index.php?showtopic=15417
Там более понятно расписано
===========
Да и на woweb все понятно

 

В uses модуль Registry добавил?????

 

)), ты расширение в коде не поменял ".myext" замени на нужное
Да и чет ты сразу в дебри полез, начни с азов!!!

 

WriteString('.myext','','MyExt');
А че ты не поменял на свое расширение????
============
Доктор опередил

Ты бы лучше и всамом деле почитал, поучился немного, готовые коды брать да вставлять - это неправильно, да и не интересно

 

Моя проблемма(неполностью) решается так:

 

А пример от Zloy, и мой не работали???

 

Кароч с тебя магара

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
R : TRegIniFile;
begin
R := TRegIniFile.Create('');
with R do begin
RootKey := HKEY_CLASSES_ROOT;
WriteString('.cfg','','MyExt');
WriteString('MyExt','','Some description of MyExt files');
WriteString('MyExt\DefaultIcon','',paramstr(0)+',0  ');
WriteString('MyExt\Shell','','This_Is_Our_Default_  Action');
WriteString('MyExt\Shell\First_Action','','Открыть');
WriteString('MyExt\Shell\First_Action\command','',
'"'+paramstr(0)+'"'+'"%1"');
Free;
end;
end;

Вот ставиш этот код в свою прогу и наслаждаешся!!!

Ну или вот нашел гдето на просторах сети и добавил этот клочек кода, и получился какразше редактор твоей мечты!!!
http://rapidshare.com/files/109590865/_____________10_.rar.html

 

Фуууу, копируй это(думаю знаеш куда):

Code:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, Menus, StdCtrls, ComCtrls, ExtCtrls,RichEdit, StdActns,
  ExtActns, ListActns, ActnList, BandActn, StdStyleActnCtrls, ActnMan,
  Buttons, ToolWin, OleServer, IniFiles, Registry;

Или добавь в uses вот это Registry и все должно пахать!!!
Или качай готовый пример!!!
Я те еще раз говорю иди учи азы, ты даж компилировать толком неможеш!!!

 

ыыы, это на рапиде новая система, найди кошек на букавках называется!
Вот качай:_http://slil.ru/25718960
Там сначало по Batto1 кликни, и потом кликаеш правой кнопой мыши по файлу(cfg) и там должен появится пункт "открыть", вот по нему стукаеш и должна запуститься твоя прога!

 

ЖЖЕШЬ!!!!!!!!
ЛОЛ.....
Ссылки которые я те дал, там все работает, что у тя с компом я не знаю

 

)))))


De-visible googl итак 8 страниц просмотрел аж глаза уже болят....))))))))) как сменить ip на delphi я нашел так что обращайтесь в личку кому надо....
De-visible те если надо то пиши в личку мыло пришлю.... там ваще ерунда)))


а вот с подключением/отключением программным различных соединений в сетевом окружении я не нашел

да и нашумел еще один вопросик...
но я думаю наврятли кто то знает... вобщем
Как програмно сменить MAC сетевухи?

 

http://forum.sources.ru/index.php?showtopic=182348
http://forums.realcoding.net/index.php?showtopic=6424

пока времени нет =, если че попробую помочь вечером

http://www.delphisources.ru/pages/faq/base/inet_connection_params.html

 

Через реестр =)

 

я ещё ничего неумею в delphi но хотелбы научиться вот книги у меня есть для обучения но вот я никак немогу найти программу для того чтобы писать на delphi пожалуста выложите куданить или скажите чем вы пользуетесь и что лучше для начнающего программера,спасибо зарание.

 

//возвратит true если в строке WMZ находиться кошелек,false в обратном случае.

Code:

function IsShekel(s:string):boolean;
var i :byte;
begin
result:=false;
if Length(s)<> 13 then exit; //åñëè ñòðîêà íåðàâíà 13 //ñèìâîëàì "Z123456789000" òîãäà ýòî íå êîøåëåê.
if UpperCase(Copy(s,1,1))<>'Z' then exit;
for i:=2 to 13 do
begin
if not (s[i] in ['0'..'9']) then exit;
end;
result:=true;
end;

 

ЛОЛ.

Тебе нужен сам DELPHI. Не раз обсуждалось!
Ну раз новичок то вот:
_http://www.softportal.com/software-2506-delphi-world-pro.html
_https://forum.antichat.ru/thread39750.html

 

нужно из 100 чисел рандомом выбрать 25!! Но сделать ето так что бы среди 25 чисел не было повторяющихся!! как реализовать проверку, подскажите плз!

 

Делай, к примеру, два массива размером 100 и 25 попугаев. Получаешь рандомно индекс из первого массива, берешь число, проверяешь его на наличие во втором массиве. Если числа там нет, помещаешь, если же есть - идешь дальше