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

Подскажите что не так почему не получается на страницу выйти вот как я понил такой код
program Project2;

uses
ShellApi;

begin
ShellExecute(Handle,'open','http://rambler.ru',nil,nil,0);
end.

 

как при запуске программы скопировать саму себя в другой каталог?

 

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle,'open','http://ya.ru',nil,nil,0);
end;

end.

 

ОТКРЫВАЕТСЯ ПУСТОЕ ОКНО DELPHI И ВСЁ Мне нужно что бы получился exe фаил при открытии которого пападали на определённую страницу

 

Ну так и пиши вместо ya.ru свою страницу. Можешь еще так попробовать:
ShellExecute(0,nil,'google.ru',
nil,nil,SW_RESTORE);

 

Блин не хрена не получается вот я зашёл в проект допустим proect1.dpr вставляю вот этот скрипт и нажимаю F9 и не чего не хрена не происходит страница не открывается и не какого продвижения ((((


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ShellApi;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle,'open','http://ya.ru',nil,nil,0);
end;

end.

 

ПОДСКАЖИТЕ КАК СДЕЛАТЬ С ВЫШЕ НАПИСЫНЫМ

 

Я же тебе написал.

 

CopyFile(pchar(application.exename),'куда копировать',true);

 

SendMessage (Memo1.Handle, WM_VSCROLL, 1, 0);
SendMessage (Memo2.Handle, WM_VSCROLL, 1, 0);

 

Code:

var
Hash:string;
Data:TstringList;

........

idHTTP1.AllowCookies := True;
Hash := idHttp1.Get('http://site.ucoz.ru');
Hash:= copy (hash,pos('input type="hidden" name="rnd" value="',hash)+38,3);
Data:=tstringlist.create;
Data.Add('user=логин');
Data.Add('password=пароль');
Data.Add('rem=1');
Data.Add('a=2');
Data.Add('ajax=1');
Data.Add('rnd=' + hash);
Hash:=IdHTTP1.Post('http://site.ucoz.ru/index/sub/', Data);
Data.Free;

 

1) как сделать так чтобы в переменную можно было записать ссылку любую функцию (которая имеет произвольные параметры) (ну это фигня можно простой Pointer поставить)
2) как вызвать фунцкию вписанную в переменную / имея ее адрес (т.е. указатель на не является)? (Имеющая довилни параметры)
3) как сделать первые два пункта но для процедур


можно конечно
типа
...
TProc0 = procedure (int: integer; const s: string) of object;
TProc1 = procedure (i1, i2: integer) of object;
...

TMyRecord = record
case AType: integer of
0: (Proc0: TProc0)
1: (Proc1: TProc1)
... / / Километр текста ..
end;

 

если я тебя правильно понял, что тебе нужно, то как-то так:

Code:

type
  TProc = function(S: PChar): Boolean;

var
   MyProc: TProc = nil;
.................

function Proc(S: PChar): Boolean;
begin
  Result:= False;
...............
end;
.......................
MyProc:= TProc(@Proc);
if MyProc('bla-bla-bla') then .....

с процедурой все аналогично

 

Тяжело нагуглить?=(
функцию же тебе сказали=)

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

if CopyFile('c:\1.txt','c:\2.txt',true) then

ShowMessage('Файл успешно скопирован!')

else ShowMessage('Неудача!');

end;

 

Всем привет, есть процедура и функция:
1)процедура вставляет елемент х в список(head-указатель на первый эл-мент, а pos-позиция в которую необходимо вставить этот элемнт)

Code:

procedure InsertValue(x: elementtype; var head, pos: list);
var
  p: list;
begin
  New(p);
  if head = nil then head:= p
  else pos.next:= p;

  p.element:= x;
  p.next:= nil;
  pos:= p;
end;

2)функция возвращает позицию элемента х в списке

Code:

function Locate(x: elementtype; head: list): list;
var
  p: list;
begin
  p:= head;
  while(p <> nil) do
  begin
    if (p.element.author = x.author) and (p.element.name = x.name) and
      (p.element.year = x.year) and (p.element.subject = x.subject) then
    begin
      Result:= p;
      Exit;
    end;
    p:= p.next;
  end;
  Result:= nil;
end;

Все бы нормально, но когда я хочу изменить какой-либо элемент(который уже существует) получается просто создание нового.Прощу помочь мне с исправлением процедуры InsertValue(имхо проблема в ней), так как мои попытки ни к чему стоящему не привели))
p.s. если нужны остальные функции работающие со списком, пишите-выложу

 

Нет, почему же. Чтобы изменить какой то элемент, тебе необходимо просто получить указатель на него и изменить необходимые данные. По идеи для изменения не нужно создавать нового элемента, можно просто воспользоваться твоей функцией Locate для нахождения и изменения нужного элемента.

 

вот блин, чеж я зразу не додумался))Спасибо!!!

 

Помогите пожалуйста)

переход по ссылке выполняется по нажатии на кнопку, а как сделать что бы сразу при запуске программы выполнялся переход по ссылке?

 

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.navigate('http://ya.ru');
end;

end.

 

Поможет кто с садачей в паскале?
Вводим конец промежутка с которого нужно выбрать простые числа.(Простые числа которые делятся только на себя и 1). Вроде бы написал но поучему то работает не правильно

PHP:

var i,n,a,p,j:integer;
 begin read(p);  
  for j:=1 to p do 
begin  
   for i:=2 to j-1 do    
    begin   
  if j mod i =0 then a:=1;   
  if a=1 then write else writeln(j); 
       end;
  end; 
end.