Muchas gracias por tu respuesta Nelson.
Lo único es que no veo si puede ayudarme ya que es prácticamente lo que tengo yo.
En tu mensaje:
Código Delphi
[-]
begin
Lista := TStringList.Create;
for i := 1 to 10 do
Lista.Add('Item-' + IntToStr(i));
Memo1.Clear;
i := 0;
while i <= Lista.Count - 1 do begin
Memo1.Lines.Add(ExtractTagAndTextInsideGivenTagEx('tr',Lista[i])); i := i + 1; end;
Lista.Free;
end;
Lo unico que no comprendo es esto:
Código Delphi
[-]Result := UpperCase(TR) + '-' + Lista;
La verdad, se me mezcla todo un poco en la cabeza porque hacia tiempo que no cogía este lenguaje ya que últimamente ando con php,html,css...
Esta es la funcion que uso para encontrar y extraer la etiqueta en la lista.
Es posible que algo esté mal aquí?
Código Delphi
[-]
function ExtractTagAndTextInsideGivenTagEx(const Tag, Text: string): string;
var
StartPos, EndPos: integer;
begin
result := '';
StartPos := Pos('<' + Tag, Text);
EndPos:= Pos('<' + '/' + Tag + '>', Text);
if (StartPos > 0) and (EndPos > StartPos) then
result := Copy(Text, StartPos, EndPos - StartPos + length(Tag) + 3);
end;
Gracias de nuevo.