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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

30
Задача 43. Создать типизированный файл , состоящий из символов,
введённых в окно ввода Edit. Заменить в файле все цифры симво-
лом ′ ? ′ . ( Не используя вспомогательный файл . )
Задача 44. Добавить новый символ ′ $ ′ в начало существующе-
го типизированного файла . ( Использовать вспомогательный файл . )
type fch = file of char;
var Form1: TForm1; f : fch;
implementation
{$R *.dfm}
procedure copy(var t1, t2 : fch);
var d : char;
begin
while not eof(t1) do
begin read(t1, d); write(t2, d) end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var c : char; h : fch;
begin
if not opendialog1.Execute then exit;
assignfile(f, opendialog1.FileName);
label1.Caption:=opendialog1.FileName;
assignfile(h, 'buf.dat');
reset(f); rewrite(h); 
                                          30
     За д а ча 43. Созд а т ь т ипизирова н н ый ф а йл, сост оя щий из сим волов,
введ ён н ых в окн о ввод а Edit. За м ен ит ь в ф а йле все циф ры сим во-
лом       ′ ? ′ . ( Не использу я вспом ога тельн ый ф а йл. )




    За д а ча 44. Доб а вить н овый сим вол ′ $ ′ в н а ча ло су щест ву ю ще-
го типизирова н н ого ф а йла . ( И спользова т ь вспом ога т ельн ый ф а йл. )




    type fch = file of char;
    var Form1: TForm1; f : fch;
    implementation
    {$R *.dfm}
    procedure copy(var t1, t2 : fch);
    var d : char;
    begin
    while not eof(t1) do
    begin read(t1, d); write(t2, d) end;
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    var c : char; h : fch;
    begin
    if not opendialog1.Execute then exit;
    assignfile(f, opendialog1.FileName);
    label1.Caption:=opendialog1.FileName;
    assignfile(h, 'buf.dat');
    reset(f); rewrite(h);

Страницы