Clomosy | Forum : if döngüsünde kontrol etme https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:54:23 +0000 Fri, 07 Nov 2025 17:34:01 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1217 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[if döngüsünde kontrol etme : Sizin kodunuzla beraber kontolu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2650#2650 Yazar: M-Guney
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 17:34

Sizin kodunuzla beraber kontolu doğru şekilde yapabildim teşekkürler.https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Fri, 07 Nov 2025 17:34:01 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2650#2650 <![CDATA[if döngüsünde kontrol etme : Hayır eğer ki iki yetkiye de sahipse...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2649#2649 Yazar: M-Guney
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 17:31

Hayır eğer ki iki yetkiye de sahipse yönlendirebiliyorum fakat tek bir yetkiye sahipse herhangi bir şekilde yönlendirme yapamıyorum.

Fakat eğer ki sadece birine sahipse problem olmuyor.]]> Fri, 07 Nov 2025 17:31:10 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2649#2649 <![CDATA[if döngüsünde kontrol etme : if((Clomosy.CLParseJSON(FJson,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2647#2647 Yazar: Emr.Erkmn
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 16:32

  if((Clomosy.CLParseJSON(FJson, IntToStr(I) + '.'+ FArrayItem) <> '') || (Clomosy.CLParseJSON(FJson, IntToStr(I) + '.'+ FArrayItem) <> nil))
   {
    IsValid = true
   } 

burada ki kontrolün her zaman true dönüyor mu? 


https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Fri, 07 Nov 2025 16:32:13 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2647#2647 <![CDATA[if döngüsünde kontrol etme : Güney tespit ettiğim problemler;Result...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2646#2646 Yazar: Emr.Erkmn
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 16:29

Güney tespit ettiğim problemler;
Result başlangıçta False olarak ayarlanmamış
 Döngü içinde Exit komutu yok , bu yüzden gereksiz yere tüm döngüyü dolaşıyor
 || yerine && kullanman 

function IsArrayContain(FArr: TCLJSONArray; FJson: String; FArrayItem: String; FLookingStr: String): Boolean
var
  I: Integer;
  currentValue: String;
{
  Result = False;
  
  Try
    if (FArr == nil)
    {
      Result = False;
      Exit;
    }
    
    if (FJson == '')
    {
      Result = False;
      Exit;
    }
    
    for (I = 0 to (FArr.Count - 1))
    {
      Try
        currentValue = Clomosy.CLParseJSON(FJson, IntToStr(I) + '.' + FArrayItem);
        
        
        if (currentValue == FLookingStr)
        {
          Result = True;
          Exit; 
        }
      except
      }
  }
  except
    Result = False;
  }
}


void GetUserPrivilegesCompletedV
var
  jsonResponse: String;
  Arr: TCLJSONArray;
  I: Integer;
  hasViewOrders: Boolean;
  hasTakePayment: Boolean;
{
  Try
    jsonResponse = TCRest.Response; 
    
    ShowMessage('Privileges JSON: ' + jsonResponse);
    
    Arr = TCLJSONArray.Create;
    Arr = TCLJSONArray.CreateFromJSON(jsonResponse);
    
    if (jsonResponse == '')
    {
      ShowMessage('Yetkiler listesi boş herhangi bir yetki yok.');
    }
    else
    {
      hasViewOrders = Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'VIEW_ORDERS');
      hasTakePayment = Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'TAKE_PAYMENT');
      
      ShowMessage(hasViewOrders); // debug 
      ShowMessage(hasTakePayment);  // debug
      
      if (hasViewOrders && hasTakePayment)
      {
        Clomosy.RunUnit('SelectRoleV');
      }
      else if (hasViewOrders)
      {
        Clomosy.RunUnit('uWaiterAndChefDetails');
      }
      else if (hasTakePayment)
      {
        ShowMessage('→ uCashierDetails sayfasına yönlendiriliyor');
        Clomosy.RunUnit('uCashierDetails');
      }
      else
      {
        ShowMessage('Uyarı: Hiçbir yetki bulunamadı!');
      }
    }
    
    if (Arr <> nil)
    {
      Try
        Arr.Free;
        Arr = nil;
      except
      }
    }
  except
    ShowMessage('Exception Class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  }
} 

kodunla karşılaştırıp bakabilir misin 
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Fri, 07 Nov 2025 16:29:39 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2646#2646 <![CDATA[if döngüsünde kontrol etme : Kodun bulundguğu kısımvoid GetUserPrivilegesCompletedVvar...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2642#2642 Yazar: M-Guney
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 15:34

Kodun bulundguğu kısım


void GetUserPrivilegesCompletedV
var
  jsonResponse: String;
  Arr : TCLJSONArray;
  I: Integer;
{
  jsonResponse = TCRest.Response
  ShowMessage(jsonResponse);
  Arr = TCLJSONArray.Create;
Arr = TCLJSONArray.CreateFromJSON(jsonResponse);
  if(jsonResponse == ''){
    ShowMessage('Yetkiler listesi boş herhangi bir yetki yok.')
  }else{
    //ShowMessage('Privileges output: '+ jsonResponse);
      
      if((Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'VIEW_ORDERS')) && (Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'TAKE_PAYMENT')))
      {
          Clomosy.RunUnit('SelectRoleV');
      }
      else if(Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'VIEW_ORDERS')){
        ShowMessage(TClProButton(MainForm.Clsender).clTagStr);
        Clomosy.RunUnit('uWaiterAndChefDetails');
        //uWaiterAndChefDetails.SetTitleV();
        
      }
      else if(Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'TAKE_PAYMENT')){
        Clomosy.RunUnit('uCashierDetails');
      }
      /*
    for (I=0 to Arr.Count -1)
    {
    }
      if(Clomosy.CLParseJSON(FJson, IntToStr(I) + '.privilege_name') == 'VIEW_ORDERS'){
        if(Clomosy.CLParseJSON(FJson, IntToStr(I) + '.privilege_name') == 'TAKE_PAYMENT'){
          Clomosy.RunUnit('SelectRoleV');}
        else {
        Clomosy.RunUnit('uWaiterAndChefDetails');}
      }
      else if(Clomosy.CLParseJSON(FJson, IntToStr(I) + '.privilege_name') == 'TAKE_PAYMENT'){
        if(Clomosy.CLParseJSON(FJson, IntToStr(I) + '.privilege_name') == 'VIEW_ORDERS'){
          Clomosy.RunUnit('SelectRoleV');}
        else {
        Clomosy.RunUnit('uCashierDetails');}
      }
      
    }
    
*/
  }
  
}

Maindeki fonksiyonum 

function IsArrayContain(FArr : TCLJSONArray; FJson, FArrayItem, FLookingStr : String): Boolean;
  var 
    I : Integer;
    IsValid : Boolean;
  {
   if((Clomosy.CLParseJSON(FJson, IntToStr(I) + '.'+ FArrayItem) <> '') || (Clomosy.CLParseJSON(FJson, IntToStr(I) + '.'+ FArrayItem) <> nil))
   {
    IsValid = true
   }
   if(IsValid){
     for(I=0 to FArr.Count-1) 
     {
        if(Clomosy.CLParseJSON(FJson, IntToStr(I) + '.'+ FArrayItem) == FLookingStr)
        {
          Result = True;
        }
      }
    }else Result = False;
}



https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Fri, 07 Nov 2025 15:34:57 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2642#2642 <![CDATA[if döngüsünde kontrol etme : void CheckPrivilegesvar hasViewOrders:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2641#2641 Yazar: Emr.Erkmn
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 14:39

void CheckPrivileges
var
  hasViewOrders: Boolean;
  hasTakePayment: Boolean;
{
  Try
    ShowMessage('Privileges output: ' + jsonResponse);
    
    hasViewOrders = Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'VIEW_ORDERS');
    hasTakePayment = Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'TAKE_PAYMENT');
    
    if (hasViewOrders && hasTakePayment)
    {
      Clomosy.RunUnit('SelectRoleV');
    }
    else if (hasViewOrders)
    {
      Clomosy.RunUnit('uWaiter&ChefDetails');
    }
    else if (hasTakePayment)
    {
      Clomosy.RunUnit('uCashierDetails');
    }
    else
    {
      ShowMessage('Hiçbir yetki bulunamadı');
    }
  except
    ShowMessage('Exception: ' + LastExceptionMessage);
  }
} 

inceleyip dener misin
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Fri, 07 Nov 2025 14:39:47 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2641#2641 <![CDATA[if döngüsünde kontrol etme : Kodun bir önce ki ve kalan kısmını...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2640#2640 Yazar: Emr.Erkmn
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 14:34

Kodun bir önce ki ve kalan kısmını da paylaşabilir misin?https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

]]> Fri, 07 Nov 2025 14:34:49 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2640#2640 <![CDATA[if döngüsünde kontrol etme : Merhaba Güney,Muhtemel hata,Boolean...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2639#2639 Yazar: Emr.Erkmn
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 14:27

Merhaba Güney,
Muhtemel hata,
Boolean döndürmüyor, 
else if koşullarını yanlış değerlendiriyor olabilir ya da JSON parsing hatası olabilir. 

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Fri, 07 Nov 2025 14:27:48 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2639#2639 <![CDATA[if döngüsünde kontrol etme : IsArrayContain fonksiyonum bana...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2637#2637 Yazar: M-Guney
Konu: 1217
Gönderim Zamanı: 07 Kasım 2025 Saat 11:46


IsArrayContain fonksiyonum bana boolean bir değer döndürüyor eğer ki benim iki yetkim de olursa sorunsuzca istiefğim sayfaya yönelendiriyor fakat eğer ki benim bu yetkilerden birine sahipsem yönlendirme yapmıyor.


    ShowMessage('Privileges output: '+ jsonResponse);
      
      if((Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'VIEW_ORDERS')) && (Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'TAKE_PAYMENT')))
      {
          Clomosy.RunUnit('SelectRoleV');
      }
      else if(Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'VIEW_ORDERS')){
        Clomosy.RunUnit('uWaiter&ChefDetails');
      }
      else if(Main.IsArrayContain(Arr, jsonResponse, 'privilege_name', 'TAKE_PAYMENT')){
        Clomosy.RunUnit('uCashierDetails');
      }
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Fri, 07 Nov 2025 11:46:16 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1217&PID=2637#2637