Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 22-01-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 30
jachguate Va por buen camino
claro!

En ocasiones he hecho algo como esto:

Código Delphi [-]
function ExtraeSiguientePalabra(var S: string): string;
begin
  if pos(' ', S) <> 0 then
  begin
    Result := copy(S, 1, pos(' ', S) -1);
    Delete(S, 1, length(Result) + 1);
    //si cabe la posibilidad que haya mas de un espacio separando:
    S := Trim(S);
  end
  else begin
    Result := S;
    S := '';
  end;
end;

var
  Lineas: TStringList;
  Linea, Campo1, Campo2: string;
  
begin
  Lineas := TStringList.Create;
  try
    Lineas.LoadFromFile('c:\datos.txt');
    for I:= 0 to Lineas.Count - 1 do
    begin
      Linea := Lineas[i];
      Campo1 := ExtraeSiguientePalabra(Linea);
      Campo2 := ExtraeSiguientePalabra(Linea);
      HacerAlgoConLosCampos(Campo1, Campo2);
    end;
  finally
    Lineas.Free;
  end;
end;

Quizás compile y quizás funcione... lo he escrito acá mismo, pues no tengo delphi a mano ahora, pero espero te de una idea.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
 



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
como leer n caracteres de un archivo manolop Varios 6 18-12-2007 22:50:06
Saber cantidad de lineas que se van a leer de un fichero texto... Lester Varios 4 04-04-2007 17:57:02
Select y cantidad de caracteres Walterdf SQL 8 28-07-2006 13:21:48
mostrar el cantidad maxima de caracteres en un memo Choclito Varios 1 03-05-2006 18:10:28
Cantidad de caracteres en un edit botones67 Varios 4 09-07-2003 11:55:54


La franja horaria es GMT +2. Ahora son las 00:50:57.


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