Delphide Txt Dosyasındaki Kayıtlar Arasında Gezinmek

 

Merhaba arkadaşlar bu makalemizde Read Me txt dosyasındaki satırdaki verileri Edit nesnesinde gösterimini sağlıyoruz. BindingNavigator de olduğu gibi txt dosyasındaki kayıtlar arasında gezinmeyi sağlayacağız.

Formumuza 8 adet Edit, 2 adet Button, 8 adet Label ve 1 adet GroupBox ekleyelim.

 

 

 

 

 

 

 

 

 

 

 

 

Şekil 1

 

 

 

 

 

 

 

 

 

 

 

 

Şekil 2

 

 

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Button2: TButton;

Label8: TLabel;

Edit8: TEdit;

GroupBox1: TGroupBox;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

i:integer;

fileData : TStringList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Button2.Enabled:=true;

if FileExists('C:\\Data\\Read Me.txt') then begin

// Create the TSTringList object

// TSTringList object olusturuluyor

fileData := TStringList.Create;

// Load from Read Me.txt file

// Read Me.txt dosyasindan yukluyoruz

fileData.LoadFromFile('C:\\Data\\Read Me.txt');

// Reverse the sequence of lines in the file

//Txt dosyasindaki ardisik satirlari ters ceviriyoruz

begin

Edit1.Text:=fileData[i];

Edit2.Text:=fileData[i+1];

Edit3.Text:=fileData[i+2];

Edit4.Text:=fileData[i+3];

Edit5.Text:=fileData[i+4];

Edit6.Text:=fileData[i+5];

Edit7.Text:=fileData[i+6];

Edit8.Text:=fileData[i+7];

i:=i+8;

if i >= fileData.Count then

i:=0;

end;

end

else

ShowMessage('File C:\\Data\\Read Me.txt not found');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

i:=i-8;

Edit1.Text:=fileData[i];

Edit2.Text:=fileData[i+1];

Edit3.Text:=fileData[i+2];

Edit4.Text:=fileData[i+3];

Edit5.Text:=fileData[i+4];

Edit6.Text:=fileData[i+5];

Edit7.Text:=fileData[i+6];

Edit8.Text:=fileData[i+7];

if i <= 0 then

Button2.Enabled:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Button2.Enabled:=false;

end;

end.

 

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.