FORUMS

MEMBERS

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

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

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

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

196

Опции темы

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

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

30.07.2008, 04:27

_GlaD1aT(OR)_

Познающий

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

Сообщений: 47

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

Репутация: 31

Отправить сообщение для _GlaD1aT(OR)_ с помощью ICQ

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

30.07.2008, 10:33

Snik

Новичок

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

Сообщений: 15

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

Репутация: 13

Цитата:

Сообщение от _GlaD1aT(OR)_

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

Свойство есть у едита - PasswordChar называется. Вот туда нужный знак и вписывается (звездочки те же).

31.07.2008, 11:33

FIND_ERROR

Познающий

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

Сообщений: 77

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

Репутация: 50

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

2 BlackSun

Код:

for (i:=0 to i<Memo1.count)
 begin
  MemoStart.Lines.Strings[i]:=stringReplace(MemoStart.Lines.Strings[i],'<lol>','',[rfReplaceAll]);
  MemoStart.Lines.Strings[i]:=stringReplace(MemoStart.Lines.Strings[i],'</lol>','',[rfReplaceAll]);
 end;

ps в коде возможны мелкие ошибки в реализации цикла давно нечего на делфи неписал...

31.07.2008, 15:35

dos999

Познающий

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

Сообщений: 98

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

Репутация: 50

да какие ошибки ... там глючить то почти нечему. если только можно сократить чуток... т.к. property Strings[Index: Integer]: string read Get write Put; default;

можно написать сразу индекс строки ... вот так
а и ещё... count надо умиеньшить на 1

Код:

for i:=0 to Memo1.count - 1 do
 begin
  MemoStart.Lines[i]:=stringReplace(MemoStart.Lines[i],'<lol>','',[rfReplaceAll]);
  MemoStart.Lines[i]:=stringReplace(MemoStart.Lines[i],'</lol>', '',[rfReplaceAll]);
 end;

Последний раз редактировалось dos999; 31.07.2008 в 15:42..

02.08.2008, 23:26

diznt

Постоянный

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

Сообщений: 643

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

Репутация: 445

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    txtA: TEdit;
    txtB: TEdit;
    txtC: TEdit;
    txtR: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 A,B,C,R   : integer;
begin
 A:=StrToInt(txtA.Text);
 B:=StrToInt(txtB.Text);
 C:=StrToInt(txtC.Text);

 R:=a+b+c

 txtR.Text:=IntToStr(r)
end;

end.

Хочу компелить так он мне пишет это! (и указывает красным фоном на строку txtR.Text:=IntToStr(r) )

Не могу понять в чем проблема и как ее решить

02.08.2008, 23:33

Indig0

Новичок

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

Сообщений: 9

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

Репутация: 23

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

diznt
R:=a+b+c;
точку с запятой поставь и ниже

02.08.2008, 23:51

diznt

Постоянный

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

Сообщений: 643

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

Репутация: 445

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    txtA: TEdit;
    txtB: TEdit;
    txtD: TEdit;
    txtC: TEdit;
    butAction: TButton;
    ButClose: TButton;
    procedure butActionClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.butActionClick(Sender: TObject);
var
 a,b,c,d    : integer;
begin
 a:=StrToInt(txtA.Text);
 b:=StrToInt(txtB.Text);

  if d='+' then
   begin
    c:=a-b;
   end;

  if d='-' then
   begin
    c:b-a;
   end;

 txtC.Text:=IntToStr(c);

end;

end.

Пишет ошибки......

02.08.2008, 23:54

~~De-visible~~

Banned

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

Сообщений: 904

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

Репутация: 1821

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

Код:

if d='-' then
   begin
    c:b-a;
   end;

Стоит обратить внимание на 3 строчку

02.08.2008, 23:56

diznt

Постоянный

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

Сообщений: 643

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

Репутация: 445

А точн))) такс теперь убралась проблема
" ':=' expected but ':' found "
А другие что обозначают и как убрать???

#10

02.08.2008, 23:59

~~De-visible~~

Banned

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

Сообщений: 904

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

Репутация: 1821

Код:

  if d='+' then
   begin
    c:=a-b;
   end;

  if d='-' then
   begin
    c:b-a;
   end;

Парень если у тебя тип integer, нахрен присваивать String(строковую переменную)????

Код:

d='-'
d='+'

Такие записи не верны.

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

196

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

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

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

ANTICHAT.XYZ