Раскрытие txt в таблицу,какой цикл?

[Kukkk]

Всем привет! Есть идея,но не знаю как реализовать. Необходимо список асек номер;пароль в txt раскрыть в табличку как для базы данных.

Типа:

|Номер|Пароль|
|Номер|Пароль|
|Номер|Пароль|
|Номер|Пароль|

Какой цикл?

Я в этом деле новичек,извеняюсь если глупый вопрос задал. заранее спасибо.

[Ядовитый]

// Разделитель - ;
// номер;пароль
// номер2:пароль2
type
TRec = record
Nomer: String;
Password: String;
end;
var
myFile: TextFile;
str, buf: String;
rec_array: array of TRec;
i: Integer;
begin
// открываешь файл
AssignFile(myFile, 'файл_с_паролем.txt');
try
Reset(myFile);
SetLength(rec_array, 0);
while not Eof(myFile) do
begin
SetLength(rec_array, Length(rec_array) + 1);
ReadLn(myFile, str);
for i:=1 to Length(str) do
if str[i]=';' then
begin
rec_array[Length(rec_array)].Name:= Copy(str,1,i-1);
rec_array[Length(rec_array)].Password:= Copy(str,i+1, Length(str));
end;
end;
finally
CloseFile(myFile);
end;

Что-то типа этого)))

[Kukkk]

Ок=))) Спс,а как задать например открытие файла каждые 2-3 секунды?

[Pitbull]

Сообщение от Kukkk

Ок=))) Спс,а как задать например открытие файла каждые 2-3 секунды?

используй таймер (timer) с вкладки System.... В тело таймера вставь код,написанный ранее.... Интервал выставь....

[Kukkk]

То-есть таймер выполняет то,что вего теле каждые(заданный промежуток),а как остановить? И таймер как вызывать например с кнопки?

[Alex21]

В начале Timer1.Enabled:=false;
При нажатии на кнопку такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=not Timer1.Enabled;
end;

т.е. если таймер запушен, то он останавливается, иначе запускается.

[Kukkk]

МЕГАСПАСИБО! Наконец я разобрался!

[Kukkk]

Вот еще такая вещь:
AssignFile(myFile, 'файл_с_паролем.txt');
не может найти у меня файл,

[Трофимов Александр]

Значит надо указать полный путь к файлу

[Kukkk]

Сработало=)