Mega Code Archive
[] Text dosyalarına kayıt ve okuma
<![CDATA[
// Arkadaşlar ilk kodlarım bunlar...
// Her zaman yakındığım tek şey; bu işleri sürekli yapan ve gerekli
// altyapıyı gerçekten edinmek isteyen arkadaşlara verilecek
// (veya verilmiş olan) kodlarda yeterli açıklamaların bulunmamasıydı.
// Ben bu kodlarda ve bundan sonra katkı olarak sunmaya çalışacağım
// tüm kodlarımda gerekli tüm açıklamaları hiç bilmeyen arkadaşların da
// hemen anlayabileceği ve uygulayabileceği şekilde vermeye çalışacağım.
// Bu arada şunu da belirtmeliyim ki bu kodların bir kısmında diğer
// arkadaşların kodlarından yararlandım, hepsine teşekkür ediyorum. Bunlar
// tamamen denenmiş kodlardır.
// İyi çalışmalar dilerim.
// Cem İlker KARADUMAN / BİLECİK
// Tek formunuza 1 adet memo, 1 adet edit ve 2 adet de buton ekleyin.
// Kodlarımız anadizinde (c'de) bulunan help.txt dosyasına satır olarak
// bilgi eklemek (edit1'e yazacağımız bilgiyi buton1'e basarak) ve bu
// dosyadan satır satır bilgi okumak (buton2'ye basarak tüm dosya
// içeriğini bir kerede memo1'e aktarmak) için yapıldı.
// Kolay gelsin.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var
Dosya: TextFile;
Satir: String;
begin
Memo1.Text := '';
AssignFile(Dosya, 'C:\help.txt');
Reset(Dosya);
While Not Eof(Dosya) Do
Begin
Readln(Dosya, Satir);
Memo1.Lines.Add(Satir);
end;
CloseFile(Dosya);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Dosya: TextFile;
Satir: String;
begin
AssignFile(Dosya, 'C:\help.txt');
Append(Dosya);
Satir := Edit1.Text;
Writeln(Dosya, Satir);
CloseFile(Dosya);
end;
end.
]]>