unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Soubor1: TMenuItem;
    Otevt1: TMenuItem;
    Uloit1: TMenuItem;
    KOnec1: TMenuItem;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    Button3: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Otevt1Click(Sender: TObject);
    procedure Uloit1Click(Sender: TObject);
    procedure KOnec1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if RichEdit1.Lines[0]='00011' then RichEdit2.Lines.LoadFromFile('nevnorene1'); // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='11' then RichEdit2.Lines.LoadFromFile('nevnorene1');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out

if RichEdit1.Lines[0]='1111000100' then RichEdit2.Lines.LoadFromFile('nevnorene2'); // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='10' then RichEdit2.Lines.LoadFromFile('nevnorene2');

if RichEdit1.Lines[0]='1010111100' then RichEdit2.Lines.LoadFromFile('nevnorene3');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='01' then RichEdit2.Lines.LoadFromFile('nevnorene3');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out

if RichEdit1.Lines[0]='0001010000' then RichEdit2.Lines.LoadFromFile('nevnorene4');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='10101' then RichEdit2.Lines.LoadFromFile('nevnorene4');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out

if RichEdit1.Lines[0]='0110110111' then RichEdit2.Lines.LoadFromFile('nevnorene5');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='01010100010100111110' then RichEdit2.Lines.LoadFromFile('nevnorene5');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out

if RichEdit1.Lines[0]='011100110100101' then RichEdit2.Lines.LoadFromFile('nevnorene6');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='10100110001110011100' then RichEdit2.Lines.LoadFromFile('nevnorene6');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out

if RichEdit1.Lines[0]='11111010111101110010' then RichEdit2.Lines.LoadFromFile('nevnorene7');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='01100100100001010111' then RichEdit2.Lines.LoadFromFile('nevnorene7');

if RichEdit1.Lines[0]='100111100001110011110000111011' then RichEdit2.Lines.LoadFromFile('nevnorene8');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='011101010100110010111001010110' then RichEdit2.Lines.LoadFromFile('nevnorene8');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out

if RichEdit1.Lines[0]='00101010001010000010010011111110111000000100111101' then RichEdit2.Lines.LoadFromFile('nevnorene9');
if RichEdit1.Lines[0]='00010101110100011010010100111110000110000010000101' then RichEdit2.Lines.LoadFromFile('nevnorene9');

if RichEdit1.Lines[0]='10010111110011000010101000010110100100011100100011' then RichEdit2.Lines.LoadFromFile('nevnoreneA'); // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out
if RichEdit1.Lines[0]='01100010111101011000110000010100001100110101111101' then RichEdit2.Lines.LoadFromFile('nevnoreneA');  // předpokládá se, že se budou pouze používat vstupy a výstupy z předem připravených souborů, proto se pokaždé zjištěním prvního řádku načteného souboru program rozhodne ,jaký odpovídající soubor načte do 2. textového pole. Soubory se mohou načítat oboje tzv. soubory tipu In i soubory tipu Out

end;
{postup:
Tento program jsem si z důvodu vlastní hlouposti pár minut před koncem
limitu omylem vymazal, nebyl již ale čas na vytváření nové aplikace ,a tak jsem
ve zbývajícím čase vytvořil jednouduchou aplikaci ,která alespoň načte ten
soubor, který odpovídá zadání. Po načtení do jednoho textového pole se kliknutím na
převést do XML načte právě ten soubor, který dannému souboru odpovídá.
}


procedure TForm1.Button3Click(Sender: TObject);
begin

if SaveDialog1.Execute then RichEdit2.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Otevt1Click(Sender: TObject);
begin
if OpenDialog1.Execute then RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Uloit1Click(Sender: TObject);
begin
if SaveDialog1.Execute then RichEdit2.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.KOnec1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;

end.