ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
31.07.2008, 15:35
|
|
Познающий
Регистрация: 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
|
|
Постоянный
Регистрация: 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
|
|
Новичок
Регистрация: 28.07.2008
Сообщений: 9
Провел на форуме:
30287
Репутация:
23
|
|
diznt
R:=a+b+c;
точку с запятой поставь и ниже 
|
|
|
|
02.08.2008, 23:51
|
|
Постоянный
Регистрация: 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
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Код:
if d='-' then
begin
c:b-a;
end;
Стоит обратить внимание на 3 строчку  |
|
|
|
02.08.2008, 23:56
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
А точн))) такс теперь убралась проблема
" ':=' expected but ':' found "
А другие что обозначают и как убрать???
|
|
|
|
02.08.2008, 23:59
|
|
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(строковую переменную)????
Такие записи не верны. |
|
|
|
03.08.2008, 04:04
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
Народ а как проверить что сдром закрыт (командой конечно)???
То есть к примеру если сдром закрыт то выполняем то .......
И еще как сделать так чтобы при нажатии кнопки опеределеный файл запускался??? Путь до файла не известен
Последний раз редактировалось diznt; 03.08.2008 в 04:15..
|
|
|
|
03.08.2008, 11:03
|
|
Познающий
Регистрация: 24.07.2008
Сообщений: 47
Провел на форуме:
108397
Репутация:
31
|
|
Почему не работает:
if form1.btnInstall.Visible:= True
then
paWelcome.Parent := paMain;
end;
Выдает ошибку [Error] fSetup.pas(255): Type of expression must be BOOLEAN. Заранее спасибо
|
|
|
|
03.08.2008, 11:19
|
|
Познающий
Регистрация: 30.04.2007
Сообщений: 77
Провел на форуме:
393625
Репутация:
50
|
|
2 _GlaD1aT(OR)_
if form1.btnInstall.Visible:= True
меняем на
if (form1.btnInstall.Visible==True)
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
