Операции с TXT

[JasperCRT]

Здравствуйте) Мне нужна помощь у меня есть текстовый фаил из которого при определённом дне в месяце нужно чтобы добовлялась определённая строка в Memo)
Выглядит это так:

var
  s:TSYSTEMTIME;
   f: TextFile;
   buf: String;
  
   i:integer;

 procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Getsystemtime(s);
i:= s.whour;

case i of
1: begin  AssignFile(f, 'D:\text.txt');
Reset(f);
readln(f, buf);
read(f,buf);
Memo1.Lines.Add(buf);
end;
2: begin  AssignFile(f, 'D:\text.txt');
Reset(f);
readln(f, buf);
read(f,buf);
Memo1.Lines.Add(buf);end;
3:  begin  AssignFile(f, 'D:\text.txt');
Reset(f);
readln(f, buf);
readln(f,buf);
read(f,buf)
Memo1.Lines.Add(buf);
end;
end;

То есть сначала я получаю номер дня и по нему определяю номер строки которая должна быть выбрана и скопированна в Memo, выбор делается при помощи case и вот тут у меня проблемка я не знаю как сделать чтобы копировалась определённая строка! и сделал так чтобы readln переходил на следующую строку и потом копировалась выбраная мной) Но это получается слишком громоздко( Ведь в месяце 31 день! Кто может помочь упростить это действие помогите!!!!!!) Или дайте ссылку на что нибудь похожее)

[dosha]

воспользуйся TSTRINGLIST , запихни туда файл и в зависимости выбирай нужную стр в списке

[Vervolf]

или цикл в конце концов создай..

[JasperCRT]

Спасибо огромное)) Код сократился! =D Вот может кому пригодится:

var
  e:TSYSTEMTIME;
   i:integer;
   s: TStringList;
  procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Getsystemtime(e);
i:= e.wDay;
S:= TStringList.Create; S.LoadFromFile('D:\text.txt');
memo1.lines.add (s[i]);