Db olarak txt kullanıyorum satır düzelt bir türlü yapamadım.

[doktoraltun]

Merhaba Arkadaşlar şöylebir tv programı yaptım

[img]
http://www.resimekle.com/?di=L1ZA
[/img]

kodları

procedure TForm2.Button1Click(Sender: TObject);
begin
AssignFile(TF,data);
Append(TF);
WriteLn(TF,edit1.Text+'='+edit2.Text);
CloseFile(TF);
temizle;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
ListBox3.Items.Delete(ListBox3.ItemIndex);
ListBox3.Items.SaveToFile(data);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
AssignFile(TF, data);
Reset(TF);
while not eof(TF) do begin
Readln(TF, Satir);
ListBox3.Items.Add(Satir);
end;
CloseFile(TF);
end;
procedure Tform2.temizle;
begin
Edit1.Text:='';
Edit2.Text:='';
end;

end.

Yapmaya çalıştığım şey panele 1 adet edit butonu ekleyip satırda düzeltme yapıp tekrar kaydetmek bunu yapabilirmiyim acaba bir yolu varmı ?

şimdiden teşekurler...

[doktoraltun]

Hele Şükür Çözdüm

Belki ben gibi acemi birilerine lazım olur

Yöntem :
Listboxtaki itemlerden değiştirmek istediğime tıkladığımda edit1 ve edit2 ye bilgiler geliyor bilgiyi değiştirip düzelt butonuna bastımda ise txt dosyasından değiştirmek
istediğim bilgiyi silip Listenin en altına editlerdeki bilgiyi kaydediyor.

procedure TForm2.ListBox3Click(Sender: TObject);
begin
Edit1.Text:=copy(ListBox3.Items[ListBox3.ItemIndex] ,1,pos('=', ListBox3.Items[ListBox3.ItemIndex])-1);
Edit2.Text:=copy(ListBox3.Items[ListBox3.ItemIndex],pos('=',ListBox3.Items[ListBox3.ItemIndex])+1,length(ListBox3.Items[ListBox3.ItemIndex]));

end;

Düzelt butonu ise

procedure TForm2.Button4Click(Sender: TObject);
begin
ListBox3.Items.Delete(ListBox3.ItemIndex);
ListBox3.Items.SaveToFile(data);
AssignFile(TF,data);
Append(TF);
WriteLn(TF,edit1.Text+'='+edit2.Text);
CloseFile(TF);
temizle;
end;

[unicorn64]

aslında ini dosyasıyla çalışsanız daha kolay işlem yapardınız...

[doktoraltun]

aslında ini dosyasıyla çalışsanız daha kolay işlem yapardınız...

hocam tavsiyenizi dinliyecem hemen ini dosyasını araştırmaya başlıyorum umarım kolaylaştırır teşekkür ediyorum.

[unicorn64]

ini dosyalarının içeriği section (bölüm) ler altında gruplanmış key-value (anahtar-değer) şeklindedir.

Kod: Tümünü seç

[Bolum1]
Anahtar1=Anahtar1inDegeri
Anahtar2=Anahtar2ninDegeri
Anahtar3=Anahtar3unDegeri
Anahtar4=Anahtar4unDegeri

[Bolum2]
Anahtar1=Anahtar1inDegeri
Anahtar2=Anahtar2ninDegeri
Anahtar3=Anahtar3unDegeri
Anahtar4=Anahtar4unDegeri

bölümler birbirinden bağımsız olduğundan farklı bölümlerde aynı anahtar adı da kullanılabilir..

Kod: Tümünü seç

uses IniFiles;

procedure IniyeYaz(section,key,value:string);
var
  ini:TiniFile;
begin
  ini:=TiniFile.Create(IniDosyaYolu);
  ini.WriteString(section,key,value);
  ini.free;
end;

function InidenOku(section,key:string;Defaultvalue:string=''):string;
var
  ini:TiniFile;
begin
  ini:=TiniFile.Create(IniDosyaYolu);
  result:=ini.ReadString(section,key,Defaultvalue);
  ini.free;
end;