Embedded Files
AnsiIndexText:var AbreviaturasCIE : Array[1..28] of String = ('DM','SUA','ERC','HAS','IVU','TOS','DM1','DM2','DM3','ITU', 'SV','ITU','APP','SUA','ERC','OMA','ICC','HTA','SII','TBP', 'EAP','MPF','MFQ','EPI','NAC','EDI','GEPI','USG');
if AnsiIndexText(TMemo(Sender).Text,AbreviaturasCIE)<>-1 then begin Showmessage('No debe contener abreviaturas...'); Result:= 'NO'; Exit; end;
MatchStr:Busca una cadena dentro de un array
TrimRightSet:Elimina el ultimo carácter de lado derecho
QuotedStr:Delimita variable con apostrofes
DelSpace1:Borra espacios y deja únicamente uno
StringReplace:Reemplaza un carácter por otro. cadena := StringReplace(cadena, 'Á', 'A',[rfReplaceAll]);
IsLetter: Es letra
IsNumber:Es número
IfThen: Condición en una sola línea
ExtractStrings:Extrae una cadena, muy util para dividir palabras y colocarlas en un array.
ReplaceStr:
RightStr:Extrae n caracteres de lado derecho de la cadena
LeftStr:Extrae n caracteres de lado izquierdo de la cadena
DupeString:
if AnsiIndexText(TMemo(Sender).Text,AbreviaturasCIE)<>-1 then begin Showmessage('No debe contener abreviaturas...'); Result:= 'NO'; Exit; end;
MatchStr:Busca una cadena dentro de un array
TrimRightSet:Elimina el ultimo carácter de lado derecho
QuotedStr:Delimita variable con apostrofes
DelSpace1:Borra espacios y deja únicamente uno
StringReplace:Reemplaza un carácter por otro. cadena := StringReplace(cadena, 'Á', 'A',[rfReplaceAll]);
IsLetter: Es letra
IsNumber:Es número
IfThen: Condición en una sola línea
ExtractStrings:Extrae una cadena, muy util para dividir palabras y colocarlas en un array.
ReplaceStr:
RightStr:Extrae n caracteres de lado derecho de la cadena
LeftStr:Extrae n caracteres de lado izquierdo de la cadena
DupeString:
Page updated
Google Sites
Report abuse