if deyimi ile döngü kurmak

[u8300693]

Günaydın arkadaşlar
aşşagıdaki kod da bildiginiz gibi 10:00-15:00 ise 17:00-21:00 yapıyor. Ama 15:00-23:00 gördügü yere 07:00-15:00 yaz kodunu nasıl yazabilirim
Bir deneme yaptım fakat bulamadıgı zaman kırılıyor.

begin
vardiya := 0;
table1.first ;

repeat
if table1Pazartesi.Value = '10:00 - 15:00' then

begin
table1.edit;
table1pazartesi.value := ?17:00 - 21:00?;
table1.post;
end;

table1.Next;
until table1.Eof;

[mussimsek]

Merhaba,

tüm tabloyu taramak istiyorsan,

Kod: Tümünü seç

Table1.First;
while not Table1.Eof do
begin
{yapacağın işlemleri yap} 
Table1.Next;
end;

Kolay gelsin.

[u8300693]

Çok teşekkürler ilginiz için ama bulamadı zaman yine kırılıyorTable1.First;

while not Table1.Eof do
begin
if table1Pazartesi.Value = '07:00 - 15:00' then
table1.edit;
table1pazartesi.value := '10:00 - 15:00';
//table1.post;
showmessage (table1Pazartesi.Value);
Table1.Next;

[rsimsek]

çünkü bulduğu zaman Table.Edit demişsin daha sonraki atamayı blok dışında yapmışsın. Halbuki tümü if .. then .. bloğu içinde olmalıydı.

Kod: Tümünü seç

while not Table1.Eof do 
begin 
  if table1Pazartesi.Value = '07:00 - 15:00' then 
  begin
    table1.edit; 
    table1pazartesi.value := '10:00 - 15:00'; 
    table1.post; 
    showmessage (table1Pazartesi.Value); 
  end;
  Table1.Next;
end;

Kolay gelsin.