ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
22.02.2009, 14:10
|
|
Новичок
Регистрация: 17.06.2008
Сообщений: 22
Провел на форуме:
260558
Репутация:
52
|
|
Сообщение от bogger
еще как делать перенос на другую строчку ?(допустим:
Код:
Writeln('Тртртртр "и вот здесь мне надо на новую строчку" ')
Код:
Writeln('Тртртртр ');
Writeln('и вот здесь мне надо на новую строчку');
|
|
|
21.02.2009, 20:10
|
|
Участник форума
Регистрация: 29.10.2008
Сообщений: 165
Провел на форуме:
397889
Репутация:
60
|
|
Здравствуйте,помогите найти ошибку! 
Код:
var
day:string;
a:real;
begin
case a of
1,2,3,4,5: day:='Будни' ;
6: day:='Суббота!';
7: day:='Вск!';
end.
|
|
|
|
21.02.2009, 20:40
|
|
Постоянный
Регистрация: 24.11.2008
Сообщений: 416
Провел на форуме:
910902
Репутация:
100
|
|
kevmen,
Код:
var
day:string;
a:integer;
begin
case a of
1,2,3,4,5: day:='Будни' ;
6: day:='Суббота!';
7: day:='Вск!';
end;
end.
|
|
|
|
22.02.2009, 12:49
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Есть код:
Код:
procedure TForm1.Button5Click(Sender: TObject);
var SL: TStringList;
begin
b:= FindWindow (nil,'Form1');
If b <> 0 then
SendMessage(FindWindow(nil,'Form1'),WM_Close,0,0);
Sl:=TStringList.Create;
if FileExists('bad.txt') then SL.LoadFromFile('bad.txt');
SL.Add(PChar('' + memo1.Lines[0] + ''));
SL.SaveToFile('bad.txt');
SL.Free;
memo2.lines.loadfromfile('bad.txt')
else
Sl:=TStringList.Create;
if FileExists('good.txt') then SL.LoadFromFile('good.txt');
SL.Add(PChar('' + memo1.Lines[0] + ''));
SL.SaveToFile('good.txt');
SL.Free;
end;
Пишед ошибку 'END' expected but 'ELSE' found
В инете накопал это:
0.<Что-то1> expected but <Что-то2> found. Обычно это сообщение возникает при синтаксической ошибке.Например,в случае небаланса скобок,компилятор сообщит: ')' expected but ';' found (вместо ожидавшейся скобки найдена запятая). Компилятор часто сообщает, что 'end' ожидается,например:x:= 5,7; здесь неуместен разделитель-запятая, а сообщается про end. ('END' expected but ',' found)
Но повозившись ниче путного так и не получилось(( Постоянно сталкиваюсь с этой ошибкой. 3 раз уже менял алгоритм программы(((( |
|
|
|
22.02.2009, 13:01
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Попробуй так:
Код:
procedure TForm1.Button5Click(Sender: TObject);
var SL: TStringList;
begin
b:= FindWindow (nil,'Form1');
If b <> 0 then
begin
SendMessage(FindWindow(nil,'Form1'),WM_Close,0,0);
Sl:=TStringList.Create;
if FileExists('bad.txt') then SL.LoadFromFile('bad.txt');
SL.Add(PChar('' + memo1.Lines[0] + ''));
SL.SaveToFile('bad.txt');
SL.Free;
memo2.lines.loadfromfile('bad.txt')
end;
else
begin
Sl:=TStringList.Create;
if FileExists('good.txt') then SL.LoadFromFile('good.txt');
SL.Add(PChar('' + memo1.Lines[0] + ''));
SL.SaveToFile('good.txt');
SL.Free;
end;
end;
|
|
|
|
22.02.2009, 13:08
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
непашед(((((
|
|
|
|
22.02.2009, 13:09
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Есть у меня такой код:
Код:
bot1.Disconnect;
bot2.Disconnect;
bot3.Disconnect;
bot4.Disconnect;
bot5.Disconnect;
bot6.Disconnect;
bot7.Disconnect;
bot8.Disconnect;
bot9.Disconnect;
bot10.Disconnect;
Как мне сделать так чтоб использовался цикл, вот что-то вроде такого
Код:
For i:=1 to 10 do begin
bot[i].Disconnect;
end;
|
|
|
|
22.02.2009, 13:11
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
ааааааа
procedure TForm1.Button5Click(Sender: TObject);
var SL: TStringList;
begin
b:= FindWindow (nil,'Form1');
If b <> 0 then
begin
SendMessage(FindWindow(nil,'Form1'),WM_Close,0,0);
Sl:=TStringList.Create;
if FileExists('bad.txt') then SL.LoadFromFile('bad.txt');
SL.Add(PChar('' + memo1.Lines[0] + ''));
SL.SaveToFile('bad.txt');
SL.Free;
memo2.lines.loadfromfile('bad.txt')
end
else
begin
Sl:=TStringList.Create;
if FileExists('good.txt') then SL.LoadFromFile('good.txt');
SL.Add(PChar('' + memo1.Lines[0] + ''));
SL.SaveToFile('good.txt');
SL.Free;
end;
end;
Так работает СПС!
|
|
|
|
22.02.2009, 13:59
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Ещё вот такой вопрос
Есть кусок кода ну например
procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('ping.exe ' + memo1.Lines[0] + ''), sw_show);
+++++++
showmessage ('ааааааа!!!')
end;
Нужно где я поставил +++++ сделать 30 секундное ожидание Тоесть нажал на кнопку пропинговался хост Через 30 сек появилось сообщение.....
UPD: Через таймер не предлагать!!!!
|
|
|
|
22.02.2009, 14:22
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Uname-A
Ещё вот такой вопрос
Есть кусок кода ну например
procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('ping.exe ' + memo1.Lines[0] + ''), sw_show);
+++++++
showmessage ('ааааааа!!!')
end;
Нужно где я поставил +++++ сделать 30 секундное ожидание Тоесть нажал на кнопку пропинговался хост Через 30 сек появилось сообщение.....
UPD: Через таймер не предлагать!!!!
procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('ping.exe ' + memo1.Lines[0] + ''), sw_show);
Sleep(сколько_ждать);
showmessage ('ааааааа!!!')
end;
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид