//---------------------------------------------------------------------------

#include <vcl.h>
#include<fstream.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)
{
	ofstream f;
	char c;
	f.open("udaj.txt");
	AnsiString udaj=Edit1->Text;
	for(int i=1;i<=udaj.Length();i++)
	{
		c=udaj[i];
		f.put(c);
    }
	f.close();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)
{
	ifstream f;
	char c;
	f.open("udaj.txt");
	if(f.fail())
	{
		ShowMessage("Chyba pri otváraní.");
		return;
	}
    f.get(c);
	while(!f.fail())
		{
		Label1->Caption= Label1->Caption +c;
		f.get(c);
		}
	f.close();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)
{
	ifstream f;
	char c;
	f.open("udaj.txt");
	if(f.fail())
	{
		ShowMessage("Chyba pri otváraní.");
		return;
	}
	f.get(c);
	while(!f.fail())
		{
		if(c==' ')
			{
			f.close();
			}
		Label2->Caption= Label2->Caption +c;
		f.get(c);
		}
	f.close();
}