Text Dosyaya yazma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Text Dosyaya yazma
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
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
hoş geldin kardeş forumumuza.
arama kısmını kullanırsan ve savetofile diye aratırsan bulabilirsin.
text dosyaya yazacaklarını bi memoya doldur.
sonra
kolay gelsin.
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');
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');
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
mrb; Clear metodundan sonra Capasity özelliğini kullanırsa daha verimli çalışacaktır.
bir başka yolda dosya değişkeni kullanmaktır.
şeklinde yaparsan direk dosyaya yazacaktı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');
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;
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
dbgrid
Arkadaşlar Memo kullanınca;
peki Dbgrid de listelenen kayıtları text belgeye satır satır yazarken hangi komutu kullanıcaz üsteki komut yerine...
Kod: Tümünü seç
memo1.lines.savetofile('c:\deneme.txt');
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Re: dbgrid
cevap yukarıda.Tropic yazdı:Arkadaşlar Memo kullanınca;
peki Dbgrid de listelenen kayıtları text belgeye satır satır yazarken hangi komutu kullanıcaz üsteki komut yerine...Kod: Tümünü seç
memo1.lines.savetofile('c:\deneme.txt');
Bu olmazsa memoya doldur oradan kaydet ama çok satırlı kayıtlarda bilgisayar çok kasar bu yüzden bu yöntemi kullan.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;
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
@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.
- 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;