Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



data

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: data

Autor: tcesky

7:58:37 21.04.2009

werqw

Citovat příspěvek

 

data

Autor: endy

22:54:56 15.04.2009

var
Form5: TForm5;
textsoubor:textfile;
s: string;
data: file of integer;
b:integer;


implementation

{$R *.dfm}

///textový soubor///

//vytvořit
procedure TForm5.Button2Click(Sender: TObject);
begin
AssignFile(textsoubor,'text.txt'); // spojí souborovou proměnnou se jménem souboru
rewrite(textsoubor); // vytvoří nový soubor
closeFile(textsoubor);
end;

//zapsat
procedure TForm5.Button1Click(Sender: TObject);
begin
append(textsoubor); //přídává řádky, data na konec souboru
writeln (textsoubor, edit1.text); //zapisuje do souboru
closefile(textsoubor);
end;

//přečíst
procedure TForm5.Button3Click(Sender: TObject);
begin
listbox1.items.clear;
reset(textsoubor); //soubor se otevře a může se z něho číst a zapisovat
read(textsoubor,s);
listbox1.items.loadfromfile('Text.txt'); //zapíše data ze souboru do listboxu,{listBox1.Items.Add(a);}
closefile(textsoubor);

end;

//smazat
procedure TForm5.Button4Click(Sender: TObject);
begin
listbox1.items.Clear;
edit1.text:= '';
reset(textsoubor); //otevře soubor
rewrite(textsoubor); //přepíše soubor
closefile(textsoubor);
end;


///datový soubor///

//vytvořit
procedure TForm5.Button6Click(Sender: TObject);
begin
Assignfile(data,'data.dat'); //spojí souborovou proměnou se jménem souboru
rewrite(data); //vytvoří nový soubor
closefile(data);
end;

//zapsat
procedure TForm5.Button5Click(Sender: TObject);
begin
b:=strtoint(edit2.text);
rewrite(data);
write(data,b);
closefile(data);
end;

//přečíst
procedure TForm5.Button7Click(Sender: TObject);
begin
listbox1.items.clear;
reset(data);
read(data);
listbox1.items.add(inttostr(b));
closefile(data);
end;

//smazat
procedure TForm5.Button8Click(Sender: TObject);
begin
listbox1.items.Clear;
edit1.text:='';
edit2.text:='';
reset(data);
rewrite(data); //erase vymaže celý datový soübor//
end;

end.

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: