HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
Страница 104 из 677 « Первая < 45494 100 101 102 103 104 105 106 107 108 114154204604 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1031  
Старый 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);
 

  #1032  
Старый 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?
 

  #1033  
Старый 04.02.2008, 12:25
GSM™
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358

Репутация: 75
По умолчанию
Цитата:
Быть может, у тебя потерялсо interface или implementation?
нет. оба на месте.
 

  #1034  
Старый 04.02.2008, 19:33
MegaDeth
Участник форума
Регистрация: 08.11.2006
Сообщений: 208
Провел на форуме:
1038169

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

  #1035  
Старый 04.02.2008, 19:47
Killerkod
Участник форума
Регистрация: 01.08.2007
Сообщений: 178
Провел на форуме:
486104

Репутация: 239
По умолчанию
Нарисуй с помощью canvas
 

  #1036  
Старый 04.02.2008, 19:56
shefff
Новичок
Регистрация: 18.12.2007
Сообщений: 2
Провел на форуме:
26725

Репутация: 1
По умолчанию
нужна прога чтоб считала количество слов в предложении. срочно, плиззз
 

  #1037  
Старый 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/
 

  #1038  
Старый 04.02.2008, 22:13
A2GIL
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909

Репутация: 200
Отправить сообщение для A2GIL с помощью ICQ
По умолчанию
LEE_ROY, исправь здесь:
Код:
   else if aChar =  then IsWord := True
    else IsWord := False
Получается код неправильно считает количество слов...

Вот, привожу пример на консоли, помнится именно такие задание просят сделать на консоли. Ну если че перевести куда нужно легко
Код:
program CountWord;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 i,n,count:integer;
 t:string;
 p:boolean=false;

function Rus(mes:string):string;
  var
     i:integer;
 begin
   for i:=1 to length(mes) do
     case mes[i] of
       'А'..'п': mes[i]:=Chr(Ord(mes[i])-64);
       'р'..'я': mes[i]:=Chr(Ord(mes[i])-16);
     end;
   rus:=mes;
 end;

begin
 writeln(rus('Введите текст '));readln(t);
 n:=length(t);

 if (n>0) then begin
 count:=1;
 for i:=1 to n-1 do begin
  if ((t[i]=' ') or (t[i]='.') or (t[i]=',')) and (not p) then
   begin
    inc(count);
    p:=true;
   end
    else
   if (t[i]<>' ') and (t[i]<>'.') and (t[i]<>',') then
     p:=false;
 end;
 end
 else count:=0;
 if (t[n]=' ') or (t[n]=',') then
  count:=1;
 write(count);
 readln;
end.
Теперь подправил!
P.S. Конечно не красиво, но для учебы сойдет
Последний раз редактировалось A2GIL; 04.02.2008 в 23:09..
 

  #1039  
Старый 04.02.2008, 22:31
GlOFF
Постоянный
Регистрация: 08.05.2006
Сообщений: 816
Провел на форуме:
1845671

Репутация: 1338


По умолчанию
Цитата:
for i:=1 to n-1 do begin
if ((t[i]=' ') or (t[i]='.') or (t[i]=',')) and (not p) then begin
inc(count);
p:=true;
end
else
if (t[i]<>' ') or (t[i]<>'.') or (t[i]<>',') then p:=false;
end;
A2GIL А видишь она просто считает количество пробелов или точек, или запятых - поэтому неправильно выдает! А фича с p:boolean не помогает. логически не правильно построено.
 

  #1040  
Старый 04.02.2008, 22:41
A2GIL
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909

Репутация: 200
Отправить сообщение для A2GIL с помощью ICQ
По умолчанию
Цитата:
A2GIL А видишь она просто считает количество пробелов или точек, или запятых - поэтому неправильно выдает! А фича с p:boolean не помогает. логически не правильно построено.
GLOFF, нашел где ошибка. Спасибо уже исправил Shefff, забирай.
Последний раз редактировалось A2GIL; 04.02.2008 в 23:13..
 
 
Страница 104 из 677 « Первая < 45494 100 101 102 103 104 105 106 107 108 114154204604 > Последняя »



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


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


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




ANTICHAT.XYZ