[shotkill]

Можно ли внутри процедуры запускать вторую процедуру ?? Если да то подскажите пожалуйста как...

[robt]

Сообщение от shotkill

Можно ли внутри процедуры запускать вторую процедуру ?? Если да то подскажите пожалуйста как...

Код:

procedure a;
begin
b;
end;

[shotkill]

сейчас попробую, если не получится то объясню суть дела...

[NumLock]

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);

  procedure ProcedureBeep;

    procedure GraphicsStdCtrlsDialogs;
    begin
      Windows.Beep(1000, 100);
    end;

  begin
    GraphicsStdCtrlsDialogs;
  end;

begin
  ProcedureBeep;
end;

[shotkill]

Код:

procedure TMainForm.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
control:=Socket.ReceiveText;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
    ServerSocket1.Active:= true;
    ClientSocket1.Active:= true;
  Data := TStData.GetInstance;
  Questions := TObjectList.Create;
  Answers := TObjectList.Create;
  Load;
  Questions.Sort( RandomList );
  QIndex := 0;
end;

Вот код. Как сделать так чтобы procedure TMainForm.ServerSocket1ClientRead выполнялась первее чем TMainForm.FormCreate ??или чтоб внутри TMainForm.FormCreate выполнялась TMainForm.ServerSocket1ClientRead ??

[PS11011010]

Код:

procedure TMainForm.FormCreate(Sender: TObject);
begin
    ServerSocket1ClientRead(sender,socket);
    ServerSocket1.Active:= true;
    ClientSocket1.Active:= true;
  Data := TStData.GetInstance;
  Questions := TObjectList.Create;
  Answers := TObjectList.Create;
  Load;
  Questions.Sort( RandomList );
  QIndex := 0;
end;

Так не вариант?

[shotkill]

не, не вариант...не работает, пишет переменная socket не найдена

[NumLock]

используй синхронную модель

[shotkill]

я не слышал про такое..можно по подробнее ???

[NumLock]

тоже самое что и блокирующие сокеты. в интернете очень много статей.

[shotkill]

пипец....темный лес (((