[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Text просто должен везде работать.
assignfile - это в делфе. если в паскале, то assign.

А вообще мегачит, работает везде - reset(f, 'file.txt');
а лучше сразу reset(input, 'file.txt');

PS мультипостить нехорошо )

 

Code:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, 'http://google.ru', nil, nil, SW_RESTORE);

end;


end.

Как сделать чтоб один раз кликнул а он открылся много раз ? Подскажите плиз и еще как таймером пользоватся чтоб прога сама закрывалась через определенное время.
з.ы Не судите строго только начинаю изучать)) кста посоветуйте нормальный сайт с уроками и с примерами програм и кодов)))

 

Создаешь цикл для данной операции:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:word;
begin
for i:=1 to 10 do // Сколько раз надо (в данном случае 10)
ShellExecute (Form1.Handle, nil, 'http://google.ru', nil, nil, SW_RESTORE);

end;

Есть несколько способов реализовать это. Ну например так:

Кидаешь на форму Timer (закладка System). Двойной клик по нему и пишешь

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Tag:=Timer1.Tag+1;
  if Timer1.Tag>10 then
     Form1.Close;
end

В данном случае через 10 сек форма закроется.

www.sources.ru
http://delphiworld.narod.ru/

 

Спасибо. А вот есть еще progressbar можно сним пример чтоб полоса загрузки двигалась или еще че)

 

Скажите код чтоб кликнуть по button1 и в директорие(как менять директорию что в Windows файл записавался) где прога создался тхт файл с сообщением внутри? еще как делать перенос на другую строчку ?(допустим:

Code:

Writeln('Тртртртр "и вот здесь мне надо на новую строчку" ')

 

Посоветуйте учебник по паскалю

 

Здравствуйте,помогите найти ошибку!

Code:

var
day:string;
a:real;
begin
case a of
1,2,3,4,5: day:='Будни' ;
6: day:='Суббота!';
7: day:='Вск!';
end.

 

kevmen,

Code:

var
day:string;
a:[B][COLOR=Red]integer[/COLOR][/B];
begin
case a of
1,2,3,4,5: day:='Будни' ;
6: day:='Суббота!';
7: day:='Вск!';
[B][COLOR=Red]end;
end.[/COLOR]
[/B]

 

Есть код:

Code:

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
В инете накопал это:

Но повозившись ниче путного так и не получилось(( Постоянно сталкиваюсь с этой ошибкой. 3 раз уже менял алгоритм программы((((

 

Попробуй так:

Code:

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;

 

непашед(((((

 

Есть у меня такой код:

Code:

bot1.Disconnect;
bot2.Disconnect;
bot3.Disconnect;
bot4.Disconnect;
bot5.Disconnect;
bot6.Disconnect;
bot7.Disconnect;
bot8.Disconnect;
bot9.Disconnect;
bot10.Disconnect;

Как мне сделать так чтоб использовался цикл, вот что-то вроде такого

Code:

For i:=1 to 10 do begin
bot[i].Disconnect;
end;

 

ааааааа

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;


Так работает СПС!

 

Ещё вот такой вопрос
Есть кусок кода ну например
procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('ping.exe ' + memo1.Lines[0] + ''), sw_show);
+++++++
showmessage ('ааааааа!!!')
end;

Нужно где я поставил +++++ сделать 30 секундное ожидание Тоесть нажал на кнопку пропинговался хост Через 30 сек появилось сообщение.....

UPD: Через таймер не предлагать!!!!

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;
   fName: String[80];
   begin
 
   fName := '1.txt;
   AssignFile(f, fName);
   Rewrite(f); 
   writeln(f, 'Твое сообщение');
   CloseFile(f);

   MessageDlg('сообщение записанов в файл 1.txt',mtInformation,[mbOk],0);
end;

 

Code:

Writeln('Тртртртр ');
Writeln('и вот здесь мне надо на новую строчку');

 

procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec(PChar('ping.exe ' + memo1.Lines[0] + ''), sw_show);
Sleep(сколько_ждать);
showmessage ('ааааааа!!!')
end;

 

А нельзя ли сделать так чтоб на время выполнения команды прога не зависала?

 

Вот эту процедурку пропиши:

Code:

procedure sleep(ms:cardinal);
var
  tc:cardinal;
begin
  tc:=GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount-tc > ms;
end;

 

Собсно АП, или никто не знает как это сделать? =(

Есть у меня такой код:

Code:

bot1.Disconnect;
bot2.Disconnect;
bot3.Disconnect;
bot4.Disconnect;
bot5.Disconnect;
bot6.Disconnect;
bot7.Disconnect;
bot8.Disconnect;
bot9.Disconnect;
bot10.Disconnect;

Как мне сделать так чтоб использовался цикл, вот что-то вроде такого

Code:

For i:=1 to 10 do begin
bot[i].Disconnect;
end;