Вот в паскале ABC есть LoadSound(). Но не в борланде не в .NET этой функции нет нет =( Чем можно ее заменить? зы эта ф-к воспроизводит музыку
Delphi - Как разобрать эту статистику (How to parse this statistic in delphi) http://www.sportal.bg/statistics_ranking.php?champ=4
дружище, ну разве ты не понимаешь, что никто не будет качать проект и запускать его у себя. выбери конкретный кусок кода, в котором происходят основные действия, связаные с твоим вопросом, и запости код сюда, подкрепив конкретным вопросом. тогда может кто-то тебе и поможет. я, к сожалению в делфи не силён.
мне нужно ето все в дельфи реализовать. с реестром все понятно. а вот создание пользователя добовление в группу. обход фаера виндовс. не где инфу не могу найти
Это непросто, почему всё-таки не использовать bat, извращаясь с делфи? Кстати, если всё это будет выполнять прога, то велики шансы, что всё это увидит антивирусник. Мой каспер и не таки мои проги резал. В оконном проекте делфи важную роль играют настраиваемые компоненты и видимо где то в них и есть ошибка(( Сам код минимален и содержит только активацию коннекта к БД и не чем помочь не сможет... Товарище, не поленитесь пожалуйста посмотреть архив.
1.http://primat.at.ua/publ/8-1-0-53 2.http://www.google.ru/#sclient=psy&hl=ru&newwindow=1&q=%D0%BF%D1%83%D0%B7%D1%8B%D1%80%D1%8C%D0%BA%D0%BE%D0%B2%D0%B0%D1%8F+%D1%81%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA%D0%B0+%D0%BF%D0%B0%D1%81%D0%BA%D0%B0%D0%BB%D1%8C&aq=f&aqi=g4g-o1&aql=&oq=&gs_rfai=&pbx=1&fp=6e2fc71f9f4e1c93
Вот нужно было отослать просто пост на сервер . установил инди. кинул на форму. кодкод в uses прописано. тип тоже IdHTTP1: TIdHTTP; выдает ошибку [Error] Unit1.pas(52): There is no overloaded version of 'Post' that can be called with these arguments в чем проблемма?
как выполнить IdHTTP1.Post('адрес' ,Даные); без процедуры нажатия кнопки. тоесть запускается ехе и сразу шлется пост
PHP: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; type TForm1 = class(TForm) IdHTTP1: TIdHTTP; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin idhttp1.Post('http://ya.ru',post); end; end.
[Error] Unit1.pas(55): Undeclared identifier: 'FormCreate' чтото мне дельфи ругается. вроде всеправельно сделал
помогите! Составить программу вычисления: S=1-1/3+1/5-1/7+..+1/17-1/19. все что тут мне писали - НЕ ВЕРНО!!! например это неверно! Code: program five; var s,k:real; i:integer; begin s:=1; k:=1; i:=0; repeat k:=k+2; i:=i+1; if (i mod 2)=0 then s:=s+1/k else s:=s-1/k; until k=19; writeln(s); end.
MaTpOc PHP: function Matros(count: Integer): double; var I: Integer; begin result := 1; count := Round((count - 1)/2); for I := 1 to count do begin if i mod 2 = 0 then Result := Result + 1/(i + 2) else Result := Result - 1/(i + 2) end; end; вызывать так например: PHP: Edit1.Text := FloatToStr(Matros(19)); выдало 0,763455988455988 PS отладил, вроде правильно работает
Ыы, точно а так? PHP: function Matros(count: Integer): double; var I: Integer; temp: Integer; begin result := 1; count := Round((count - 1)/2); temp := 3; for I := 1 to count do begin if i mod 2 = 0 then Result := Result + 1/temp else Result := Result - 1/temp; Inc(temp, 2) end; end; 0,76045990473235
не, нужно без функций вот намутил вроде PHP: program five; var s,k:real; i:integer; begin s:=1; k:=1; i:=0; repeat k:=k+2; i:=i+1; if (i mod 2)=0 then s:=s+1/k else s:=s-1/k; until k=19; writeln(s); end.
