Код програми 1.

unit Unit3;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm3 = class(TForm)

Button2: TButton;

Memo1: TMemo;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

T2file: textfile;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var stroka:string;

Len, ko, i:integer

begin

AssignFile(T2file,'C:\Users\VLaDiMiR\Documents\RAD Studio\Projects\Laba_files\MyFile.txt');

{$I-}

Reset(T2File);

{$I+}

ko:=0;

while not EOF(T2File) do

begin

readln(T2File, stroka);

Len:=Length(stroka);

if (Len>ko) then

begin Label1.Caption:=stroka;

Label2.Caption:=IntToStr(Len);

ko:=Len;

end;

end;

CloseFile(T2File);

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Memo1.Lines.SaveToFile('C:\Users\VLaDiMiR\Documents\RAD Studio\Projects\Laba_files\MyFile.txt');

end;

end.

Код програми 2.

unit Unit3;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

MyIntFile: TextFile;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var chislo: integer;

chislostr:string;

Flag:boolean;

ParCo, NeParCo:integer;

begin

ParCo:=0;

NeParCo:=0;

flag:=False;

AssignFile(MyIntFile,'C:\Users\VLaDiMiR\Documents\RAD Studio\Projects\Laba_files_z2\intFile.txt'); // привязка названия файла к файловой переменной

{$I-} // отключение контроля ошибок ввода-вывода

Reset(MyIntFile); // открытие файла для чтения

{$I+} // включение контроля ошибок ввода-вывода

while not eof(MyIntFile) do

Begin

ReadLn(MyIntFile, chisloStr);

chislo:=StrToInt(chisloStr);

if (Flag=true) AND (chislo=0) then begin ParCo:=ParCo+1; end;

if (Flag=false) AND (chislo=0) then begin NeParCo:=NeParCo+1; end;

if (Flag=false) then Flag:=true else Flag:=false;

End;

if ParCo>NeParCo then

Label2.Caption:= 'парных позициях';

if ParCo<NeParCo then

Label2.Caption:= 'не парных позициях';

end;

end.

Дата добавления: 2015-11-16