Виктор Аблов

Досье Виктор Аблов


ГРЯДЕТ ОБНОВА)))XD)))

Адрес: Украина, Одесса
Происхождение: Одесса
Дата рождения:25 Апреля 1989
Сайт: offline
Следить за пользователем



Виктор Аблов родился 25 Апреля 1989 года. Он был рожден в городе Одесса. Также, мы выяснили, что сейчас он проживает в городе Одесса, Украина. Виктор придерживается умеренных политических взглядов. В своих религиозных взглядах он указал: "Нигилизм".


Скрытые друзья пользователя:


Скрытые друзья еще не проверялись.

Найти скрытых друзей






Вот, что рассказывает Виктор о себе:
Я в целом веселый и наслаждающийся жизнью человек который имеет уйма увлечений (харит писать)!кто знает меня тот меня знает, а не знает тоже не беда)))...во всяком случае я очень упертый, хотя я это - Я...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls, ActnList;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Memo1: TMemo;
    N5: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  st: Tstringlist;
  mnfile:string;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
  if SaveDialog1.Execute=True then begin
    mnfile:=SaveDialog1.FileName;
    st:=tstringlist.Create;
    st.Add(memo1.Text);
    st.SaveToFile(mnfile);
    st.Free;
  end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
end;

procedure TForm1.N3Click(Sender: TObject);
var i:integer;
    sl:tstringlist;
begin
  Memo1.Clear;
  if OpenDialog1.Execute=true then begin
    sl:=tstringlist.Create;
    sl.LoadFromFile(OpenDialog1.FileName);
    Memo1.Lines.Add(sl.Text);

  end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
 memo1.Clear;
end;

end.