linkedin facebook linkedin facebook nod32

Delphi da  ma’lumotlarni faylga yozish

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2015-06-09

Delphi da  ma’lumotlarni faylga yozish

1. Edit1 dagi ma’lumotlarni d:\ diskdagi misol.txt faylga ko’chiring.

Dastur kodi

procedure TForm2.Button1Click(Sender: TObject);
var
F:TextFile; //Ta`riflanayotgan fayl nomi//
begin
AssignFile(F,'d:/misol.txt');//yangi fayl hosil qilish
Rewrite(F);
writeln(F,Edit1.Text); //Faylni yozib olish
CloseFile(F);    //Faylni yopish
end;

2. Memo1 dagi ma’lumotni faylga yuboring va Memo 2 ga faylda o’qish

procedure TForm2.Button1Click(Sender: TObject);
var
F:TextFile; //Ta`riflanayotgan fayl nomi//

m:array[0..100] of string;

i,j,n:integer; s:string;

begin j:=0;

with memo1 do

begin

for n:=0 to lines.count-1 do

begin

s:=lines[n]+'';

fori:=1 to length(s) do

begin

m[j]:=m[j]+copy(s,i,1);

if (copy(s,i,1)='') then j:=j+1

end;

end;

end;

AssignFile(F,'d:/misol.txt');//yangi fayl hosil qilish
Rewrite(F);

for i:=0 to j do

writeln(F,m[i]); //Faylni yozib olish
CloseFile(F);    //Faylni yopish

end;

//Memo1 dagi faylni memo2 faylga ketma-ket oyozish

procedure TForm2.Button2Click(Sender: TObject);
var
F:TextFile; //Ta`riflanayotgan fayl nomi//

s:string;

begin

Reset(f;

Readln(f,s);

Memo2.Lines[0]:=s;

while not eof(f) do

begin

Readln(f,s);

Memo2.Lines.Add(s);

end;

Closefile(f);

end;

end.

729 marta o`qildi.

Foydalanuvchi ismi: DiLmuRod
Qo`shilgan sana: 2015-06-09

Ishladi dastur

Foydalanuvchi ismi: javohir
Qo`shilgan sana: 2016-01-08

malumotlariz qiziq ekan

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama

testing

masalalar.zn.uz/

Turli xil mavzuda, internet mavzular, faqat masalalar.zn.uz saytda.


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений