Блог программистов



F.A.Q.Pblog

1й год Форума программистов 2006-2007

Вывести конкретную строку из файла

Вывел алгоритм случайных не повторяющихся чисел, а вот вывести по этим числам строки из файла ни как не получается. Помогите кто чем может, буду очень блогадарен.

var
TIntegerList: TStringList;
Added: Boolean;
i, Number: Cardinal;
begin
TIntegerList:=TStringList.Create;
TIntegerList.Sorted:=True;
TIntegerList.Duplicates:=dupError;
TIntegerList.LoadFromFile('ptb.txt');
for i:=1 to 7 do
begin
Added:=False;
repeat
Randomize;
try
Number:=Random(StrToInt(Label1.Caption)+1);
if Number <> 0 //Исключаем ноль
then begin
TIntegerList.Add(IntToStr(Number));
Added:=True;
end
else Added:=False
except
on EStringListError do Added:=False
end
until Added = True;
if i=1 then begin
Edit1.Text:=IntToStr(Number);
Edit8.Text:=TIntegerList.Strings[StrToInt(Edit1.Text)];
end;
if i=2 then begin
Edit2.Text:=IntToStr(Number);
Edit9.Text:=TIntegerList.Strings[StrToInt(Edit2.Text)];
end;
if i=3 then begin
Edit3.Text:=IntToStr(Number);
Edit10.Text:=TIntegerList.Strings[StrToInt(Edit3.Text)];
end;
if i=4 then begin
Edit4.Text:=IntToStr(Number);
Edit11.Text:=TIntegerList.Strings[StrToInt(Edit4.Text)];
end;
if i=5 then begin
Edit5.Text:=IntToStr(Number);
Edit12.Text:=TIntegerList.Strings[StrToInt(Edit5.Text)];
end;
if i=6 then begin
Edit6.Text:=IntToStr(Number);
Edit13.Text:=TIntegerList.Strings[StrToInt(Edit6.Text)];
end;
if i=7 then begin
Edit7.Text:=IntToStr(Number);
Edit14.Text:=TIntegerList.Strings[StrToInt(Edit7.Text)];
end;
end;
TIntegerList.Destroy;
end;


Просмотр ответов:
http://programmersforum.ru/showthread.php?t=3584

Posted in Общие вопросы Delphi by Alar



Другие вопросы:
Окно под курсором
Как выполнить один и тот же код для двух разных событий
Создать приложение, запускающееся с параметрами.
Zlib.dll
Записать массив байт в файл



<<<Назад    Вперёд>>>