Aranan Karekter Bulunamaz İse Sayı Artacak

[Serhat]

Selam,

Dbgrid veya Memo içinde arama işlemi yaptırıyorum aranan karakter bulunamaz ise ekle alanını + 1 olarak artacak, ekle alanı string nedeni ise dbgrid veya Memo içinde sayı ve harf var.

Aranan karakter buluna kadar döngüden çıkılmayacak bulunamadığı taktirde ekle alanı + 1 artacak

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Ekte: String;
begin
  Ekte := '2';
  for i := 0 to DBGrid1.SelectedRows.Count - 1 do
  begin
    if işlem then
    begin
      X - X - -X - X - X - X - X -;
    end
    else
    begin
      Ekte := Ekte + '1';
    end;
  end;
end;

[Serhat]

Eksik yazmışım aranan karakter sayı meme veya dbgrid içinde aranan sayı yok ise döngüden çıkmadan ekle sayısını + artırmak istiyorum...

[Efe]

StrToInt, IntToStr, Inc işinizi görecektir.

procedure TForm1.Button2Click(Sender: TObject);
var
i, Z: Integer;
Ekte: String;
begin
Ekte := '2';
for i := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
if işlem then
begin
X - X - -X - X - X - X - X -;
end
else
begin
Z:=StrtoInt(Ekte);
Inc(Z, 1);
end;
end;
Ekte:=IntToStr(Z);

end;