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.