Text Dosyaya yazma

[kutay_25]

Arkadaşlar delphi de yeniyim
1 den 5 kadar olan sayıları txt dosyaya yazan programı yapmaya çalışıyorum yardımcı olursanız sevinirim


örnek ;doysya bu şekilde aktarmasını istiyorum
1
2
3
4
5
teşekkürler

[nitro]

hoş geldin kardeş forumumuza.
arama kısmını kullanırsan ve savetofile diye aratırsan bulabilirsin.

text dosyaya yazacaklarını bi memoya doldur.
sonra

Kod: Tümünü seç

memo1.Lines.SaveToFile('c:\deneme.txt');

kolay gelsin.

[kutay_25]

teşekkürler

yazacağım sayılar 1000 kadarsa hepsini oraya yazmakta zorl olacaktır

[nitro]

sayılar sıralı ya da düzgün artan- azalan ise sorun yok.
döngü içinde yaptırırsın.
ramdom sayılar ise yapacak bişey yok.

[kutay_25]

var
i:integer;
begin
for i := 0 to 5 do
memo1.Lines.LoadFromFile(inttostr(i));

arkadaşım böyle birşey denedim ama hata verdi

kodları yazıp gönderirsen sevinirim
sayılar sıralı olacak 1 den 10 kadar txt dosyaya aktarmak istiyorum

[nitro]

Kod: Tümünü seç

var
i: integer;
begin
memo1.lines.clear;
for i:=1 to 5 do 
    begin
    memo1.lines.add(inttostr(i));
    end; 

memo1.lines.savetofile('c:\deneme.txt');

[kutay_25]

Allah Razı olsun
Kardeş saolasın

[nitro]

Cümlemizden kardeş. sen de sağolasın.

[sabanakman]

mrb; Clear metodundan sonra Capasity özelliğini kullanırsa daha verimli çalışacaktır.

Kod: Tümünü seç

var i,n: integer;
begin
n:=5;
memo1.lines.clear;
memo1.lines.Capacity:=n;
for i:=1 to n do
    begin
    memo1.lines.add(inttostr(i));
    end;

memo1.lines.savetofile('c:\deneme.txt');

bir başka yolda dosya değişkeni kullanmaktır.

Kod: Tümünü seç

var f:TextFile; i,n: integer;
begin
  AssignFile(f,'c:\deneme.txt');Rewrite(F); 
  for i:=1 to n do Writeln(f,i);
  CloseFile(f);
end;

şeklinde yaparsan direk dosyaya yazacaktır.

[Tropic]

Arkadaşlar Memo kullanınca;

Kod: Tümünü seç

memo1.lines.savetofile('c:\deneme.txt'); 

peki Dbgrid de listelenen kayıtları text belgeye satır satır yazarken hangi komutu kullanıcaz üsteki komut yerine...

[sabanakman]

Arkadaşlar Memo kullanınca;

Kod: Tümünü seç

memo1.lines.savetofile('c:\deneme.txt'); 

peki Dbgrid de listelenen kayıtları text belgeye satır satır yazarken hangi komutu kullanıcaz üsteki komut yerine...

cevap yukarıda.

var f:TextFile; i,n: integer;
begin
AssignFile(f,'c:\deneme.txt');Rewrite(F);
for i:=1 to n do Writeln(f,i);
CloseFile(f);
end;

Bu olmazsa memoya doldur oradan kaydet ama çok satırlı kayıtlarda bilgisayar çok kasar bu yüzden bu yöntemi kullan.

[mrmarman]

@sabanakman +1

- Dbgrid'de listelenen kayıtlar, aktif veritabanı tablosundaki kayıtlardır. Yani veriyi Tablo'dan alacaksınız.

- Veritabanı tablonuz bir AdoQuery olduğunu varsayalım ve adı da AdoQuery1 olsun.

Kod: Tümünü seç

var
  f   : TextFile;
begin
  AssignFile(f, 'c:\deneme.txt');
  Rewrite(F);
  With AdoQuery1 do
    While NOT EOF do begin
      Writeln(f, Format('%d: %s',[ FieldByName('Alan1').AsInteger, FieldByName('Alan2').AsString]) );
      Next;
    end;
  CloseFile(f);
end;