Ver Mensaje Individual
  #6  
Antiguo 27-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 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
Cita:
Empezado por JXJ Ver Mensaje
en un archivo de texto tengo que encontrar
el texto contenido entre las lineas

descripcion:
categoria:
Hola.

Coincido con ElDioni y AzidRain. Ateniendome al texto de tu post, esto hace lo que estas pidiendo...

Código Delphi [-]
function EntreDescripcionYCategoria(NomArch: string): TStrings;
var
  i,p: Integer;
  ts: TStrings;
begin
  ts:= TStringList.Create;
  ts.LoadFromFile(NomArch);
  for i:= 0 to ts.Count -1 do
  begin
    p:= Pos(':', ts[i]);
    if p > 0 then
     ts[i]:= Copy(ts[i], p + 1, Length(ts[i]));
  end;
  Result:= ts;
end;

Llamada ej.:
Código Delphi [-]
  Memo1.Lines:= EntreDescripcionYCategoria('C:\TEXTO.TXT');

Saludos.
Responder Con Cita