AppendAllText

program AppendAllText;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils, System.IOUtils;

var

s: string;

begin

s:= 'мир' + #10 + 'труд' + #10 + 'май';

TFile.AppendAllText('text.txt', s);

Writeln(TFile.ReadAllText('text.txt'));

Readln;

end.

Copy

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

btnCopy: TButton;

btnMove: TButton;

btnDelete: TButton;

edSourcePath: TEdit;

edDestinationPath: TEdit;

procedure btnCopyClick(Sender: TObject);

private

{ Private declarations }

procedure operation(Sender: TObject);

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.btnCopyClick(Sender: TObject);

begin

operation(Sender);

end;

procedure TForm1.operation(Sender: TObject);

begin

try

{ Copy file from source file path to destination file path }

if Sender = btnCopy then

TFile.Copy(edSourcePath.Text, edDestinationPath.Text);

{ Move file from source file path to destination file path }

if Sender = btnMove then

TFile.Move(edSourcePath.Text, edDestinationPath.Text);

{ Delete file from source file path }

if Sender = btnDelete then

TFile.Delete(edSourcePath.Text);

except

MessageDlg('Incorrect path', mtError, [mbOK], 0);

Exit;

end;

end;

end.

Create

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

ListBox1: TListBox;

ListBox2: TListBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TPerson = record

Name: string[50];

vorname: string[50];

end;

TComputer = record

Name: string[30];

cpu: string[30];

end;

var

Form1: TForm1;

Person: TPerson;

Computer: TComputer;

Stream: TFileStream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

try

Stream:= TFile.Create('test.txt');

except

ShowMessage('Ошибка создания файла');

Exit;

end;

Person.Name:= 'Grossenbacher';

Person.vorname:= 'Simon';

Stream.WriteBuffer(Person, SizeOf(TPerson));

Person.Name:= 'Stutz';

Person.vorname:= 'Thomas';

Stream.WriteBuffer(Person, SizeOf(TPerson));

Computer.Name:= 'Delphi';

Computer.cpu:= 'Intel';

Stream.WriteBuffer(Computer, SizeOf(TComputer));

Computer.Name:= 'Win';

Computer.cpu:= 'AMD';

Stream.WriteBuffer(Computer, SizeOf(TComputer));

Stream.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

i: Integer;

begin

try

Stream:= TFile.OpenRead('test.txt');

except

ShowMessage('Ошибка открытия файла');

Exit;

end;

for i:= 2 downto 1 do

begin

Stream.ReadBuffer(Person, SizeOf(TPerson));

ListBox1.Items.Add(Person.vorname + ' ' + Person.Name);

end;

//Einlesen von TComputer

//Read Records TComputer

for i:= 2 downto 1 do

begin

Stream.ReadBuffer(Computer, SizeOf(TComputer));

ListBox2.Items.Add(Computer.Name + ' ' + Computer.cpu);

end;

Stream.Free;

end;

end.