Редактирование строки, Нужна помощь! Опции

[guf]

Прошу помочь разобраться. Текст задан как массив строк. Над каждой строкой нужно провести следующие действия:
- удалить символ в любом месте строки
- вставить символ в любом месте строки
Также добавление/удаление строки в массиве строк.
Эти действия нужно выполнять с помощью управляющих клавиш- влево, вправо, вниз, вверх, Del, Ins, Backspace

program Text_Editor;
uses Crt;

Const N_Max=256;

Var
     str:array[0..N_Max] of string[80];
     ch:char;
     f,f1:text;
     S,S1,S2:string;



Procedure Edit_Text;
Var l,m:byte;q:integer;
Begin
clrscr;
Write('Vxod '); Readln(S1);
Write('Vihod '); Readln(S2);
Assign(f,s1);
Assign(f1,s2);
Reset(f);
Rewrite(f1);
While not EOf(f) Do
Begin
clrscr;
l:=0;
Repeat
l:=l+1;
ReadLn(f,str[l]);
Until (l=N_Max) or EOf(f);
For m:=1 To l Do
repeat
writeln(str[m]);
Ch:=readkey;
Case Ch Of
#8:...    {backspace}

#82:...  {Ins}

#83:...  {Del}

#72:...  {up}

#75:...  {left}

#77:...  {right}

#80:...  {down}
end;
until ch=#13;
end;
close(f);
close(f1);
End;

begin
Edit_Text
end.

.

Сообщение отредактировано: guf - 8.04.2008 18:43