Clomosy | Forum : nil kontrolü https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 09:34:24 +0000 Wed, 19 Nov 2025 17:01:02 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1234 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[nil kontrolü : function DeclineRoleNeeds_Safe:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2730#2730 Yazar: Emr.Erkmn
Konu: 1234
Gönderim Zamanı: 19 Kasım 2025 Saat 17:01

function DeclineRoleNeeds_Safe: Boolean
var
  LArr: TCLJSONArray;
  itemsJson: String;
{
  Try
  
    if (Trim(Role) == '')
    {
      Result = False;
      Exit;
    }
    
    if (not IsValidRole(Role))
    {
      ShowMessage('️ Geçersiz role: ' + Role);
      Result = False;
      Exit;
    }
    
    Result = False;
    
    if (Role == 'Chef')
    {
      AssignRoleAsChef;
      
      itemsJson = Clomosy.CLParseJSON(JsonResponse, 'items');
      if (itemsJson <> '')
      {
        LArr = TCLJSONArray.Create;
        Try
      
          LArr = TCLJSONArray.CreateFromJSON(itemsJson);
          CloseValuePnlVD(LArr);
        
        finally
        
          if (LArr <> nil)
          {
            LArr.Free;
            LArr = nil;
          }
        }
      }
      Result = True;
    
    else if (Role == 'Waiter')
    {
      AssignRoleAsWaiter;
      Result = True;
    }
    else if (Role == 'Cashier')
    {
      AssignRoleAsCashier;
      
      if (vScroll <> nil) { vScroll.Margins.Bottom = (MainForm.clHeight * 0.2979); }
      if (noteMemo <> nil) { noteMemo.Visible = False; }
      if (CompleteBtn <> nil) { CompleteBtn.Margins.Top = (MainForm.clHeight * 0.3814); }
      if (StateAndDateTimePnl <> nil) { StateAndDateTimePnl.Margins.Top = (MainForm.clHeight * 0.5721); }
      if (AmountPnl <> nil) { AmountPnl.Margins.Top = (MainForm.clHeight * 0.1907); }
      
      Result = True;
    }
    else if (Role == 'Boss')
    {
      AssignRoleAsBoss;
      Result = True;
    }
  }
  except
  
    ShowMessage(' DeclineRoleNeeds_Safe hatası: ' + LastExceptionClassName + ' - ' + LastExceptionMessage);
    Result = False;
  }
} 
Trimle kontrol yapmaya çalıştım Güney sende inceler 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">]]> Wed, 19 Nov 2025 17:01:02 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2730#2730 <![CDATA[nil kontrolü : https://www.docs.clomosy.com/T...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2729#2729 Yazar: Emr.Erkmn
Konu: 1234
Gönderim Zamanı: 19 Kasım 2025 Saat 16:58

https://www.docs.clomosy.com/Trimhttps://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">]]> Wed, 19 Nov 2025 16:58:47 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2729#2729 <![CDATA[nil kontrolü : function DeclineRoleNeeds: Booleanvar...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2728#2728 Yazar: Emr.Erkmn
Konu: 1234
Gönderim Zamanı: 19 Kasım 2025 Saat 16:49

function DeclineRoleNeeds: Boolean
var
  LArr: TCLJSONArray;
  itemsJson: String;
  RoleTrimmed: String;
{
  Try
  
    RoleTrimmed = Trim(Role);
    
    if (RoleTrimmed == '')
    {
      Result = False;
      Exit;
    }
    
    Result = False;
    
    if (Role == 'Chef')
    {
      AssignRoleAsChef;
      
      itemsJson = Clomosy.CLParseJSON(JsonResponse, 'items');
      
      if (itemsJson <> '')
      {
        LArr = TCLJSONArray.Create;
        Try
        
          LArr = TCLJSONArray.CreateFromJSON(itemsJson);
          CloseValuePnlVD(LArr);
          Result = True;
        
        finally
        
          if (LArr <> nil)
          {
            LArr.Free;
            LArr = nil;
          }
        }
      }
      else
      {
        Result = True; 
      }
    }
    else if (Role == 'Waiter')  
    {
      AssignRoleAsWaiter;
      Result = True;
    }
    else if (Role == 'Cashier')  
    {
      AssignRoleAsCashier;
      
      if (vScroll <> nil)
      {
        vScroll.Margins.Bottom = (MainForm.clHeight * 0.2979);
      }
      
      if (noteMemo <> nil)
      {
        noteMemo.Visible = False;
      }
      
      if (CompleteBtn <> nil)
      {
        CompleteBtn.Margins.Top = (MainForm.clHeight * 0.3814);
      }
      
      if (StateAndDateTimePnl <> nil)
      {
        StateAndDateTimePnl.Margins.Top = (MainForm.clHeight * 0.5721);
      }
      
      if (AmountPnl <> nil)
      {
        AmountPnl.Margins.Top = (MainForm.clHeight * 0.1907);
      }
      
      Result = True;
    }
    else if (Role == 'Boss')
    {
      AssignRoleAsBoss;
      Result = True;
    }
    else
    {
      ShowMessage('️ Geçersiz role: ' + Role);
      Result = False;
    }
  
  except
  
    ShowMessage(' DeclineRoleNeeds hatası: ' + LastExceptionClassName + ' - ' + LastExceptionMessage);
    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">]]> Wed, 19 Nov 2025 16:49:51 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2728#2728 <![CDATA[nil kontrolü : function DeclineRoleNeeds:Boolean...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2727#2727 Yazar: M-Guney
Konu: 1234
Gönderim Zamanı: 19 Kasım 2025 Saat 16:15

function DeclineRoleNeeds:Boolean
  var 
  LArr : TCLJSONArray;
  itemsJson : String;
  {
  //ShowMessage('Role: '+Role);
  try
    if( role == ''){
    Result = False;
      Exit;
    }
      
    //ShowMessage('Role True: '+Role);
    if (Role == 'Chef')
    {
      AssignRoleAsChef;
      itemsJson = Clomosy.CLParseJSON(JsonResponse, 'items');
      LArr = TCLJSONArray.Create;
      LArr = TCLJSONArray.CreateFromJSON(itemsJson);
      CloseValuePnlVD(LArr); // ValuePnl.Visible = false; // Bütün + - butonlarını görünmez yapar. 
      LArr.free;
      Result = True;
      // Miktar büyümeli ve pozisyon ayarlanmalı
    }
    else if( role=='Waiter')
      AssignRoleAsWaiter;
    else if (role =='Cashier')
    {
      AssignRoleAsCashier;
      vScroll.Margins.bottom = (MainForm.clHeight * 0.2979); // 250 / 839 ≈ 0.2979   //Cashier
      noteMemo.Visible=False;  //cashier
      CompleteBtn.Margins.top = (MainForm.clHeight * 0.3814); // 320 / 839 ≈ 0.3814    //Cashier
      StateAndDateTimePnl.Margins.top = (MainForm.clHeight * 0.5721); // 480 / 839 ≈ 0.5721    //Cashier
      AmountPnl.Margins.top = (MainForm.clHeight * 0.1907); // 160 / 839 ≈ 0.1907//Cashier
    }
    else if (role == 'Boss')
      AssignRoleAsBoss;
    else {
    ShowMessage('Role is invalid');
    Result = False;
    }
    
  //}
  except
  ShowMessage('DeclineRoleNeeds Error, Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
}


bunu yapıyorum fakat invalid typecast hatası alıyorum type kontrolü nasıl yapabilirim.
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">]]> Wed, 19 Nov 2025 16:15:43 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2727#2727 <![CDATA[nil kontrolü : String için nil kontrolü yapamıyoruz...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2726#2726 Yazar: Emr.Erkmn
Konu: 1234
Gönderim Zamanı: 19 Kasım 2025 Saat 15:34

String için nil kontrolü yapamıyoruz diye biliyorum Güney, 
bunun için boş string kontrolünü kullansak, 
if (Role == '')  
    {
      ShowMessage(' Role boş!');
      Result = False;
      Exit;
    }
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">]]> Wed, 19 Nov 2025 15:34:47 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2726#2726 <![CDATA[nil kontrolü : function DeclineRoleNeeds:Boolean...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2725#2725 Yazar: M-Guney
Konu: 1234
Gönderim Zamanı: 19 Kasım 2025 Saat 15:23

function DeclineRoleNeeds:Boolean
  var 
  LArr : TCLJSONArray;
  itemsJson : String;
  {
  //ShowMessage('Role: '+Role);
  try
    if( Role <> nil){
      
      //ShowMessage('Role True: '+Role);
    Result = False;
    if (Role == 'Chef')
    {
      AssignRoleAsChef;
      itemsJson = Clomosy.CLParseJSON(JsonResponse, 'items');
      LArr = TCLJSONArray.Create;
      LArr = TCLJSONArray.CreateFromJSON(itemsJson);
      CloseValuePnlVD(LArr); // ValuePnl.Visible = false; // Bütün + - butonlarını görünmez yapar. 
      LArr.free;
      Result = True;
      // Miktar büyümeli ve pozisyon ayarlanmalı
    }
    else if( role=='Waiter')
      AssignRoleAsWaiter;
    else if (role =='Cashier')
    {
      AssignRoleAsCashier;
      vScroll.Margins.bottom = (MainForm.clHeight * 0.2979); // 250 / 839 ≈ 0.2979   //Cashier
      noteMemo.Visible=False;  //cashier
      CompleteBtn.Margins.top = (MainForm.clHeight * 0.3814); // 320 / 839 ≈ 0.3814    //Cashier
      StateAndDateTimePnl.Margins.top = (MainForm.clHeight * 0.5721); // 480 / 839 ≈ 0.5721    //Cashier
      AmountPnl.Margins.top = (MainForm.clHeight * 0.1907); // 160 / 839 ≈ 0.1907//Cashier
    }
    else if (role == 'Boss')
      AssignRoleAsBoss;
    else {
    ShowMessage('Role is invalid');
    Result = False;
    }
    
  //}
  except
  ShowMessage('DeclineRoleNeeds Error, Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
}

role string bir değişken ve ben nil kontrolü yapmak istiyorum ama Invalid typecast hatası alıyorum 

 while (not hasAffected) {
          hasAffected = uWaiterAndChefDetails.DeclineRoleNeeds;
        }

bu şekilde kontrol ediyorum. Timer atamaktansa 
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">]]> Wed, 19 Nov 2025 15:23:29 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1234&PID=2725#2725