Файл-менеджер на Паскале Опции

[TwD]

Очень хочу написать его,но не идёт и всё тут.как мне сделать чтоб спиок файлов (findfirst) выходил на 3 стобца и работал курсор для начала?

[Бродяжник]

TwD
И все же я бы предложил отталкиваться от чего-то наподобие следующего:

Код

uses crt;
const a: array[1..4] of string=(' Open    ',' Save    ',' Save as ',' Exit    ');
var y: integer;
   klav: char;
begin

 clrscr;

 textcolor(14);
 textbackground(1);

 for y:=1 to 4 do
     begin
       gotoxy(1,y);
       write(a[y]);
     end;

 y:=1;

 repeat

   textcolor(0);
   textbackground(7);

   gotoxy(1,y);
   write(a[y]);


   klav := readkey;

   if klav = #0 then klav := readkey;

   case klav of
       #72: begin
              if y>1 then begin
                            textcolor(14);
                            textbackground(1);

                            gotoxy(1,y);
                            write(a[y]);

                            y:=y-1;
                          end;
            end;
       #80: begin
              if y<4 then begin
                            textcolor(14);
                            textbackground(1);

                            gotoxy(1,y);
                            write(a[y]);

                            y:=y+1;
                          end;
            end;
   end;
 until klav=#27;

end.

P.S. Надо еще стандартный курсор убрать с глаз долой, но я сейчас не вспомню, как.

Сообщение отредактировано: Бродяжник - 10.12.2004 17:27