Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-07-2007
gabrielkc gabrielkc is offline
Miembro
 
Registrado: jun 2007
Ubicación: Chihuahua Mexico
Posts: 118
Poder: 11
gabrielkc Va por buen camino
Obtener Subcadena

hay veces que necesitamos obtener una subcadena o serie de subcadenas de una cadena. La función recibe una cadena formateada para tal propósito, la subcadena en un índice determinado y opcionalmente un separador

Código:
function GetText(s: string; Indice: Byte;Separador:string='|'): string;
var i:Integer;
tmp:string;
begin
  i:=1;
  while i<=Indice do
   begin
    Delete(s,1,Pos(Separador,s));
    Inc(i);
   end;
  if Pos(Separador,s)<>0 then
   tmp:=Copy(s,1,Pos(Separador,s)-1)
  else
   tmp:=s;
  if Length(tmp)=0 then
    tmp:=EmptyString;
  Result:=tmp;  
end;
ejem:

Tenemos la cadena
'12345|AGUA|H2O'

si llamamos la funcion con :
GetText('12345|AGUA|H2O',0);
nos devuelve '12345'

si llamamos la funcion con :
GetText('12345|AGUA|H2O',1);
nos devuelve 'AGUA'

Yo lo utilizo para personalizar en conjunto con el DrawText, los ListBox y los StringGrid
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:38:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi