использование таймера

[KancJler]

Здраствуйте)У меня вот какой вопрос:
1)как сделать задержку в переборе массива(т.е чтобы он перебирал строки с заданным интервалом)
2)и как приязать запуск консольных программ
заранее спасиб))
PS если нужно для решения проблемки, то могу выложить скрипт проги

[mihali4]

Язык программирования... Опять телепата вызывать?

[KancJler]

Delphi )))

[SunKnight]

1)как сделать задержку в переборе массива(т.е чтобы он перебирал строки с заданным интервалом)

можна без таймера, а просто sleep(n);где n интервал

[KancJler]

Я,конечно, извиняюсь за тупость просто тока тока начинаю....)
А куда именно нужно вписать sleep(n) вот скрипт:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    DBGrid1: TDBGrid;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  filename='settings.ini';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure a(filename,username,pass,ivnum:string);
var
  f:Textfile;
begin
assignfile(f,filename);
rewrite(f);
writeln(f,'Do NOT edit this file!');
writeln(f,'[Settings]');
write(f,'username = ');
writeln(f,username);
write(f,'password = ');
writeln(f,pass);
write(f,'iv = ');
writeln(f,ivnum);
writeln(f,'refresh1 = 2');
writeln(f,'refresh2 = 3');
writeln(f,'startup = 0');
writeln(f,'proxy ='); 
writeln(f,'useragent ='); 
closefile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 user:string;
  pass:string;
  iv:string;
begin
  if Form1.OpenDialog1.Execute then
  begin
    Form1.Table1.TableName:=Form1.OpenDialog1.FileName;
    Form1.Table1.Open;
    Form1.Table1.First;
    for i:=0 to Form1.Table1.RecordCount-1 do
    begin
      user:=Form1.Table1.Fields.Fields[0].AsString;
       pass:=Form1.Table1.Fields.Fields[1].AsString;
       iv:=Form1.Table1.Fields.Fields[2].AsString;
      A(filename,user,pass,iv);
      form1.Table1.Next;
    end;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Table1.Close;
end;

end.

[mihali4]

как сделать задержку в переборе массива(т.е чтобы он перебирал строки с заданным интервалом)

В обработчике события таймера:
- остановка таймера
- выбор следующей строки
- обработка ее
- выдача результата
- запуск таймера

куда именно нужно вписать sleep(n)

В любое место цикла
for i:=0 to Form1.Table1.RecordCount-1 do

[A_r_r_a_y]

Лучше все таки с таймером, sleep имеет склонность к нестабильной работе, лично у меня не раз sleep работал след образом:
1.долго-долго спал
2.выполнилось все быстро
хотя должно было быть:
1.выполнил
2.спит
3.выполнил
...

[SunKnight]

for i:=0 to Form1.Table1.RecordCount-1 do
begin
sleep(300);

я поглядел на листинг и понял что вы пытаетесь работать с INI файлами, я правильно считаю?

[KancJler]

Да правильно,а что там какая-то особенность нужна?)

[SunKnight]

можна использовать модуль uses IniFiles; поищи инфу на эту тему. Все будет проще.