¿Como se usan los StringHelpers ?

[mav]

Hola, he estado probando helpers diversos y...he conseguido  muchos errores :
 

Code: Pascal  [Select][+][-]

1.          procedure TForm1.Button1Click(Sender: TObject);
2.             begin
3.                 //if Edit1.Text.IsNullOrEmpty then        //-->Error: Illegal qualifier
4.  
5.                  if Edit1.Text.IsNullOrWhiteSpace then     //--> Error: Illegal qualifier
6.                    begin
7.                      ShowMessage('...es null o vacio');
8.                     end;
9.            end;                                      

  Saludos.

[lucamar]

Probablemente porque TEdit.Text no es (en sentido estricto) una string sino a TCaption ... que es una TTranslateString ... que es:

Code: Pascal  [Select][+][-]

1. type TTranslateString = type string;

así que es mayormente compatible con strings normales pero no exactamente el mismo tipo.

Para poder usar el StringHelper tendrás que pasarlo a una cadena:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var sv: String;
3. begin
4.   sv := Edit1.Text;
5.   if sv.IsNullOrWhiteSpace then
6.   begin
7.     ShowMessage('...es null o vacio');
8.   end;
9. end;

[mav]

 También había probado pasándole una variable string (por si acaso...) y  mas formas, pero no he conseguido que funcione en ninguna :

Code: Pascal  [Select][+][-]

1.         procedure TForm1.Button1Click(Sender: TObject);
2.         var
3.           sv: String;
4.           begin
5.              sv := Edit1.Text;
6.              if sv.IsNullOrWhiteSpace then
7.                begin
8.                ShowMessage('...es null o vacio');
9.               end;
10.       end;
11.  
12.      {Compile Project, Mode: Release, Target: project1.exe: Exit code 1, Errors: 2
13.        unit1.pas(33,9) Error: Wrong number of parameters specified for call to "IsNullOrWhiteSpace"
14.          syshelp.inc(313,30) Error: Found declaration: class IsNullOrWhiteSpace(const AnsiString):Boolean; Static;
15.      }
16.  

[lucamar]

No me había dado cuenta: son métodos de "clase". Inténtalo así:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var sv: String;
3. begin
4.   { Igual funciona también con:
5.   if TStringHelper.IsNullOrWhiteSpace(Edit1.Text) then ...
6.   pero por si acaso ...}
7.   sv := Edit1.Text;
8.   if TStringHelper.IsNullOrWhiteSpace(sv) then
9.   begin
10.     ShowMessage('...es null o vacio');
11.   end;
12. end;

[mav]

...también lo había intentado de esa forma y el error es en ese caso:
 
Compile Project, Mode: Release, Target: project1.exe: Exit code 1, Errors: 1
unit1.pas(36,19) Error: Objective-C categories and Object Pascal class helpers cannot be used as types

 ...

[mav]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2.  
3. var sv: String;
4. begin
5.  //Igual funciona también con:
6.   if TStringHelper.IsNullOrWhiteSpace(Edit1.Text) then
7.  // pero por si acaso ...}
8.   //sv := Edit1.Text;
9.  { if TStringHelper.IsNullOrWhiteSpace(sv) then }
10.   begin
11.     ShowMessage('...es null o vacio');
12.   end;
13. end;
14.  
15. end.
16.           {Compile Project, Mode: Release, Target: project1.exe: Exit code 1, Errors: 1, Hints: 1
17. unit1.pas(30,5) Note: Local variable "sv" is assigned but never used
18. unit1.pas(33,19) Error: Objective-C categories and Object Pascal class helpers cannot be used as types
19. }
20.                                                      
21.  

[lucamar]

Eso es muy raro. No estarás en modo MACPAS o algo parecido ¿no? En modo OBJPAS o DELPHI debería funcionar sin más.

Quizá tengas que mostrar algo más de código o incluso adjuntar el proyecto completo.

Vale, no me hagas caso; soy yo el que ha metido la pata

Hay que usar un tipo "real", como en:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   if String.IsNullOrWhiteSpace(Edit1.Text) then
4.   begin
5.     ShowMessage('...es null o vacio');
6.   end;
7. end;

Así sí que funciona. Debería probar las cosas antes de hablar ...

[mav]

  :)Bien! Correcto, así es como funciona...ya puedo usar mas helpers.
Gracias.
  Saludos