Лабораторная работа №2. Базовые средства использования файловой системы.
Задание: разработать программу с использованием базовых системных функций ОС WINDOWS, которая переписывает текст из одного файла в другой, заменяя все знаки подчеркивания тильдой.
Разместите на форме 2 label, 2 memo и кнопку.
Исходный код программы для Delphi:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var f1,f2:TextFile;
s,buf:string;
i:integer;
begin
Memo1.Text:='Файл: "in.txt"';
Memo2.Text:='Файл: "out.txt"';
AssignFile(f1,'in.txt');
AssignFile(f2,'out.txt');
Reset(f1);
Rewrite(f2);
while not eof(f1) do
begin
readln(f1,buf);
s:='';
for i:=1 to length(buf) do
if buf[i] <> '_' then s:=s+buf[i]
else s:=s+'~';
writeln(f2,s);
Memo1.Lines.Add(buf);
Memo2.Lines.Add(s);
end;
CloseFile(f1);
CloseFile(f2);
ShowMessage('Программа завершенна!!! Из исходного файла "in.txt" мы перезаписали в "out.txt. Файлы находятся в директории с программой!');
end;
end.
Блок схема:
 |
Главная
Каталог файлов
