Text Dosyaya yazma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
kutay_25
Üye
Mesajlar: 4
Kayıt: 15 Eki 2006 03:15

Text Dosyaya yazma

Mesaj gönderen 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
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen 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
Üye
Mesajlar: 4
Kayıt: 15 Eki 2006 03:15

Mesaj gönderen kutay_25 »

teşekkürler

yazacağım sayılar 1000 kadarsa hepsini oraya yazmakta zorl olacaktır
:)
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen 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
Üye
Mesajlar: 4
Kayıt: 15 Eki 2006 03:15

Mesaj gönderen 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
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen 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
Üye
Mesajlar: 4
Kayıt: 15 Eki 2006 03:15

Mesaj gönderen kutay_25 »

Allah Razı olsun
Kardeş saolasın
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

Cümlemizden kardeş. sen de sağolasın.
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3064
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Mesaj gönderen 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.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
Tropic
Üye
Mesajlar: 48
Kayıt: 12 Nis 2005 10:45

dbgrid

Mesaj gönderen 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...
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3064
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: dbgrid

Mesaj gönderen sabanakman »

Tropic yazdı: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.
sabanakman yazdı: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.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4733
Kayıt: 09 Ara 2003 08:13
Konum: Ankara
İletişim:

Mesaj gönderen mrmarman »

@sabanakman +1

- Dbgrid'de listelenen kayıtlar, aktif veritabanı tablosundaki kayıtlardır. :idea: 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;
Resim Resim
Cevapla