FORUMS

MEMBERS

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 103 из 671

103

Опции темы

Поиск в этой теме

Опции просмотра

04.02.2008, 11:44

GSM™

Участник форума

Регистрация: 02.11.2007

Сообщений: 230

Провел на форуме:
1819358

Репутация: 75

Цитата:

procedure Button1Click(Sender : TObject);
procedure PageControl1Change(Sender : TObject);
procedure Edit1Change(Sender : TObject);
procedure Edit2Change(Sender : TObject);
procedure FormActivate(Sender : TObject);
procedure Table1AfterScroll(Sender : TObject);
procedure RadioButton1Click(Sender : TObject);
procedure RadioButton2Click(Sender : TObject);
procedure RadioButton3Click(Sender : TObject);
procedure RadioButton4Click(Sender : TObject);
procedure RadioButton5Click(Sender : TObject);
procedure RadioButton11Click(Sender : TObject);
procedure RadioButton10Click(Sender : TObject);
procedure Edit1KeyDown(Sender : TObject);
procedure Edit2KeyDown(Sender : TObject);
procedure Label17DblClick(Sender : TObject);
procedure RadioButton13Click(Sender : TObject);
procedure RadioButton14Click(Sender : TObject);
procedure RadioButton6Click(Sender : TObject);
procedure RadioButton7Click(Sender : TObject);
procedure RadioButton8Click(Sender : TObject);
procedure RadioButton9Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure RadioButton12Click(Sender : TObject);
procedure RadioButton15Click(Sender : TObject);
procedure DBCheckBox1MouseUp(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure Table1AfterInsert(Sender : TObject);
procedure RadioButton16Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Unit1.Initialization(Sender : TObject);
procedure Unit1.Finalization(Sender : TObject);

как я понимаю ей этого нехватает?
procedure Unit1.Initialization(Sender : TObject);
procedure Unit1.Finalization(Sender : TObject);

04.02.2008, 12:12

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

GSM™, для модулей необходимы секции interface, implementation, initialization, finalization (последние два необязательны), типа

Код:

unit Unit1; 

interface

uses
...
type
  { TForm1 }
  TForm1 = class(TForm)
    procedure Button1Click(Sender : TObject);
    procedure PageControl1Change(Sender : TObject);
    procedure Edit1Change(Sender : TObject);
    procedure Edit2Change(Sender : TObject);
    procedure FormActivate(Sender : TObject);  
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure Button1Click(Sender : TObject);
begin
...
end;

end.

Быть может, у тебя потерялсо interface или implementation?

04.02.2008, 12:25

GSM™

Участник форума

Регистрация: 02.11.2007

Сообщений: 230

Провел на форуме:
1819358

Репутация: 75

Цитата:

Быть может, у тебя потерялсо interface или implementation?

нет. оба на месте.

04.02.2008, 19:33

MegaDeth

Участник форума

Регистрация: 08.11.2006

Сообщений: 208

Провел на форуме:
1038169

Репутация: 184

как в делфе сделать чтобы форму поделить на поле с прямоугольниками 15*15 и чтобы каждому мона было задавать цвет %)
зачем надо неспрашивайте :d

05.02.2008, 01:59

A2GIL

Познающий

Регистрация: 31.08.2007

Сообщений: 94

Провел на форуме:
422909

Репутация: 200

Отправить сообщение для A2GIL с помощью ICQ

Цитата:

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

Довольно легко, вот сделал так, чтобы сразу задавался рендомный цвет

Код:

var
  Form1: TForm1;
  h,w,dh,dw:integer;
  i,j:byte;
  r,g,b:byte;
  flox,floy:integer;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
with form1 do
  begin
    h:=ClientHeight;
    w:=ClientWidth;
    dh:=round(h/15);
    dw:=round(w/15);
    flox:=dw-3;
    floy:=dh-3;
   for i:=1 to 15 do
    for j:=1 to 15 do
     begin
      Canvas.Rectangle((j-1)*dw,(i-1)*dh,j*dw,i*dh);
      randomize();
      r:=random(255);
      g:=random(255);
      b:=random(255);
      Canvas.Brush.Color:=rgb(r,g,b);
      Canvas.FloodFill((j)*flox,(i)*floy,canvas.Pixels[(j)*flox,(i)*floy],fsSurface);
   end;
 end;
end;

//Работа с Canvas' ом идет не с первой космической скоростью

05.02.2008, 23:31

+voron+

Познающий

Регистрация: 06.11.2007

Сообщений: 30

Провел на форуме:
169550

Репутация: 9

Отправить сообщение для +voron+ с помощью ICQ

ээ снова я ))

m: array[1..4] of char = ('T','E','S','T');

а как также только матрицу записать?
дапустим n : array [1..4,1..4] of char
построчно

06.02.2008, 00:10

Bаters

Новичок

Регистрация: 15.01.2008

Сообщений: 4

Провел на форуме:
26687

Репутация: 1

насколько помню это можно сделать так

Код:

m: array[1..4, 1..4] of char = (('T','E','S','T'),
                                ('q','w','e','e'),
                                ('a','s','d','f'),
                                ('z','x','c','v'));

04.02.2008, 19:47

Killerkod

Участник форума

Регистрация: 01.08.2007

Сообщений: 178

Провел на форуме:
486104

Репутация: 239

Нарисуй с помощью canvas

04.02.2008, 19:56

shefff

Новичок

Регистрация: 18.12.2007

Сообщений: 2

Провел на форуме:
26725

Репутация: 1

нужна прога чтоб считала количество слов в предложении. срочно, плиззз

#10

04.02.2008, 21:08

LEE_ROY

Постоянный

Регистрация: 09.11.2006

Сообщений: 639

Провел на форуме:
1917742

Репутация: 541

Цитата:

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

нужна прога чтоб считала количество слов в предложении. срочно, плиззз

PHP код:


		
			
unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, XPMan;



type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Label1: TLabel;

    XPMan1: TXPMan;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



function CountWords(InputString: string): integer;

var

  aChar: char;

  WordCount: integer;

  IsWord: boolean;

  i: integer;

begin

  WordCount := 0;

  IsWord := False;

  for i := 0 to Length(InputString) do

  begin

    aChar := InputString[i];

    if (aChar in [

      'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's',

        't', 'u', 'v', 'w', 'x', 'y', 'z',

        'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S',

        'T', 'U', 'V', 'W', 'X', 'Y', 'Z',

        '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '''', '-'

        ]) then

    begin

      if not IsWord then Inc(WordCount);

      IsWord := True;

    end

    else if aChar = '\' then IsWord := True

    else IsWord := False



  end;



  IsWord := False;

  Result := WordCount;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := IntToStr(CountWords(edit1.Text));

end;



end.

EXE - http://dump.ru/files/o/o532484947/

Страница 103 из 671

103

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

ANTICHAT.XYZ