Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-09-2011
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 17
look Va camino a la fama
funcion split de una cadena

hola , sabe alguna manera de partir una cadena en un arreglo.
encontre esta funcion, pero no me da problemas con los espacios.
__________________
all your base are belong to us
Responder Con Cita
  #2  
Antiguo 24-09-2011
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 17
look Va camino a la fama
hola, ya lo he solucionado , me encontre estas funciones
__________________
all your base are belong to us
Responder Con Cita
  #3  
Antiguo 25-09-2011
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Te propongo esta solución:

Código Delphi [-]
//---------------------------------------------------------------------------
// Extrae cadenas separadas por un separador C
// Ind es el indice de la cadena a extraer, comenzando por 0
function  Splitz(S: String; Ind: integer; C: CHAR): String;
var
   I, F, N: integer;
begin
   I:= 1;
   F:= 1;
   N:= Length(S);
   while Ind>0 do
   begin
     while(I<=N) and (S[i]<>C) do inc(I);
     inc(I); dec(Ind);
   end;
   F:= I;
   while(F<=N) and (S[F]<>C) do inc(F);

   Result:= Copy(S, I, F-I);
end;

Ejemplo:

Código Delphi [-]
Edit1.Text:= Splitz('Cadena de texto;;con separadores; y uso de; splitz', 2, ';');


Saludos.
Responder Con Cita
  #4  
Antiguo 10-10-2011
ogalonzo ogalonzo is offline
Registrado
NULL
 
Registrado: oct 2011
Posts: 2
Poder: 0
ogalonzo Va por buen camino
Intenta con ExtractStrings()

Prueba con ExtractStrings(); intenta esto:
  1. Deposita un TEdit, un TButton y un TMemo
  2. Haz doble clic en el TButton y pon este código:
    Código:
      Memo1.Lines.Clear();
      ExtractStrings([';'], [' '], PChar(Edit1.Text), Memo1.Lines);
  3. Corre el programa, introduce una cadena separada con puntos y comas y listo, cuando hagas clic en el botón verás que el memo se llena con las cadenas.

Espero sirva.
Responder Con Cita
  #5  
Antiguo 11-10-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Agrego otra opcion:
Código Delphi [-]
...
type
  TVecStr = array of string;

procedure SplitStrToArray(Cadena: string; const Delimitadores: string; var V: TVecStr);
var
  c,i,p:Integer;
begin
  Cadena:= Cadena + Delimitadores[1];
  c:=0;
  p:= 1;
  for i:= 1 to Length(Cadena) do
  begin
    if Pos(Cadena[i], Delimitadores) <> 0 then
    begin
      SetLength(V, Length(V) + 1);
      V[c]:= Copy(Cadena, p, i-p);
      p:= i + 1;
      Inc(c);
    end;
  end;
end;

Ejemplo de uso:
Código Delphi [-]
...
var
  v: TVecStr;
  i: Integer;
begin
  SplitStrToArray('SplitStrToArray:Función que-parte;una.cadena;en,un arreglo con.varios-delimitadores', ' ,;-.:', V);
  for i:= Low(v) to High(v) do
    ListBox1.Items.Add(v[i])
  ...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 11-10-2011 a las 01:48:58.
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
función split en delphi sergionr Varios 9 04-04-2013 18:47:03
Funcion Split D.M.Nieto Lazarus, FreePascal, Kylix, etc. 1 11-03-2008 19:27:17
Funcion para borrar la cadena que aparesca repetida dentro de otra cadena flystar Varios 1 03-07-2007 00:51:10
Funcion para buscar cadena dentro de otra cadena y el numero de veces flystar Varios 3 02-07-2007 23:48:08
Funcion SUM me regresa una cadena paty_rlopez Firebird e Interbase 6 18-04-2006 16:13:10


La franja horaria es GMT +2. Ahora son las 18:33:09.


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