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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

35
сначала все знаки препинания , встречающиеся в файле, а потом все
остальные символы файла .
Задача 54. Создать типизированный файл , состоящий из целых
чисел, введённых в столбик в окно текстового реактора Memo. Вы-
вести содержимое созданного файла в поле метки Label.
type fint = file of integer;
var Form1: TForm1; f : fint;
implementation
{$R *.dfm}
Процедура обработки события щелчка по кнопке Создать файл :
procedure TForm1.Button1Click(Sender: TObject);
var d, i : integer;
begin
if not savedialog1.execute then exit;
label1.Caption:=savedialog1.FileName;
assignfile(f, savedialog1.FileName);
rewrite(f);
for i:=0 to memo1.Lines.Count-1 do
begin
d:=strtoint(memo1.Lines.Strings[i]);
write(f, d);
end;
closefile(f)
end; 
                                         35
сн а ча ла все зн а ки препин а н ия , встреча ю щиеся в ф а йле, а потом все
ост а льн ые сим волы ф а йла .




     За д а ча 54. Созд а ть т ипизирова н н ый ф а йл, состоя щий из целых
чисел, введ ён н ых в ст олб ик в окн о т екст ового реа кт ора Memo. В ы-
вест и сод ерж им ое созд а н н ого ф а йла в поле м ет ки Label.




    type fint = file of integer;
    var Form1: TForm1; f : fint;
    implementation
    {$R *.dfm}
    П роцед у ра об ра б отки соб ыт ия щелчка по кн опке С оздать ф айл :
    procedure TForm1.Button1Click(Sender: TObject);
    var d, i : integer;
    begin
    if not savedialog1.execute then exit;
    label1.Caption:=savedialog1.FileName;
    assignfile(f, savedialog1.FileName);
    rewrite(f);
    for i:=0 to memo1.Lines.Count-1 do
    begin
    d:=strtoint(memo1.Lines.Strings[i]);
    write(f, d);
    end;
    closefile(f)
    end;

Страницы