Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 34 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

34
Задача 52. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Переписать содержимое файла в новый
символьный файл , изменяя порядок элементов следующим образом :
сначала все знаки арифметических операций, встречающиеся в файле,
а потом все остальные символы файла .
var Form1: TForm1; f, h : file of char;
Процедура обработки события щелчка по кнопке Выполнить:
procedure TForm1.Button1Click(Sender: TObject);
var c,d:char; str:string[4];
begin
if not opendialog1.Execute then exit;
assignfile(f, opendialog1.FileName);
label1.Caption:=opendialog1.FileName;
if not savedialog1.Execute then exit;
assignfile(h, savedialog1.FileName);
label2.Caption:=savedialog1.FileName;
str:='+*-/';
reset(f); rewrite(h);
while not eof(f) do
begin
read(f, d); if pos(d, str)<>0 then write(h, d)
end;
seek(f, 0);
while not eof(f) do
begin
read(f, d); if pos(d, str)=0 then write(h, d)
end;
closefile(f); closefile(h)
end;
Задача 53. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Переписать содержимое файла в новый
символьный файл , изменяя порядок элементов следующим образом : 
                                          34
      За д а ча 52. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. П ереписа т ь сод ерж им ое ф а йла в н овый
сим вольн ый ф а йл, изм ен я я поря д ок э лем ен тов след у ю щим об ра зом :
сн а ча ла все зн а ки а риф м етических опера ций, встреча ю щиеся в ф а йле,
а потом все оста льн ые сим волы ф а йла .




    var Form1: TForm1; f, h : file of char;
    П роцед у ра об ра б отки соб ыт ия щелчка по кн опке В ы пол н и ть :
    procedure TForm1.Button1Click(Sender: TObject);
    var c,d:char; str:string[4];
    begin
    if not opendialog1.Execute then exit;
    assignfile(f, opendialog1.FileName);
    label1.Caption:=opendialog1.FileName;
    if not savedialog1.Execute then exit;
    assignfile(h, savedialog1.FileName);
    label2.Caption:=savedialog1.FileName;
    str:='+*-/';
    reset(f); rewrite(h);
    while not eof(f) do
    begin
    read(f, d); if pos(d, str)<>0 then write(h, d)
    end;
    seek(f, 0);
    while not eof(f) do
    begin
    read(f, d); if pos(d, str)=0 then write(h, d)
    end;
    closefile(f); closefile(h)
    end;

     За д а ча 53. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. П ереписа т ь сод ерж им ое ф а йла в н овый
сим вольн ый ф а йл, изм ен я я поря д ок э лем ен тов след у ю щим об ра зом :

Страницы