[SRC] [Delphi] Text_Beetwen_Words [by *PsYkE1*]

[Psyke1]

Hola, me he pasado a Delphi hace dos dias y he pasado esta funcion que tenia hecha en VB6...  

http://foro.rthacker.net/programacion-visual-basic/%28src%29-%28funcion%29-text_between_words-%28by-*psyke1*%29/

Código (delphi) [Seleccionar] Expandir


(* * * * * * * * * * * * * * * * * * * * * * * * * *)
(* Function : Text_Beetwen_Words                   *)
(* Author   : *PsYkE1*                             *)
(* Mail     : vbpsyke1@mixmail.com                 *)
(* Date     : 24/8/10                              *)
(* Purpose  : Returns text which is beetwen        *)
(*            two words.                           *)
(* Visit    : http://foro.rthacker.net/            *)
(* * * * * * * * * * * * * * * * * * * * * * * * * *)

function InStr(iStart: integer; sText: string; sWord: string): integer;
begin
Result := Pos(sWord,Copy(sText,iStart,Length(sText) - (iStart - 1)));
end;

function Text_Beetwen_Words(sTextToAnalyze:String ; sStartWord:String ; sEndWord:string): String;
var
 iPosition1  : Integer;
 iPosition2  : Integer;
 iStart      : Integer;
begin
    iPosition1 := Instr(1,sTextToAnalyze,sStartWord);
    if iPosition1 > 0 then
     begin
       iStart := (iPosition1 + Length(sStartWord));
       iPosition2 := Instr(iStart,sTextToAnalyze,sEndWord);
     end
    else
     exit;
    if iPosition2 > 0 then
     Result := Copy(sTextToAnalyze,iStart,iPosition2 -1);
end;

Un ejemplo:

Código (delphi) [Seleccionar] Expandir


procedure TForm1.FormCreate(Sender: TObject);
   begin
     (* añade un textbox *)
   edit1.Text:= text_beetwen_words('Hoy estoy muy aburrido','Hoy ',' aburrido');
   end;

end.

Devuelve esto:

estoy muy

DoEvents¡!

[VanHan]

Me encanto  Lindo Source

Salu2
[vHn]

[Psyke1]

Gracias, ire pasando mis funciones de vb a delphi progresivamente...

DoEvents¡!