caracteres de un memo

[ZayDun]

hola, tengo un memo que contiene unas lista de direcciones webs pero muchas de ellas son asi..


www.laweb.com/archivo.rar %20href...

lo que me gustaria es poder eliminar desde el espacio hasta el final y asi poder dejar la url limpia, ya que a veces el %20href no lo contiene y en su caso contiene otra cadena.

[[duilioisola]]

url : string
pos(' ',url) devuelve la posición del espacio.
url := copy(url,1,pos(' ',url)) devuelve la parte de url que comienza en la posición 1 hasta donde está el primer espacio.

Supongo que también deberás cortar todo lo que quede después del un signo %.

[ZayDun]

Utilizo este codigo pero solo me muestra la primera url que contiene el memo donde almaceno las urls.

Código Delphi [-]
var
i:integer;
Info:string;
begin
  Info:=Memo1.Lines.Text;
  i := Pos(' ', Info);
  Delete(Info, i, MaxInt);
  Memo1.Lines.Add (Info);
  end;

[[duilioisola]]

un memo está compuesto de muchas líneas.

Deberás utilizar un for :

Código Delphi [-]
var
i:integer;
linea:integer;
Info:string;
begin
  for linea := 0 to Memo1.Lines.Count -1 do
  begin
    Info:=Memo1.Lines[linea];
    i := Pos(' ', Info);
    Delete(Info, i, MaxInt);
    Memo1.Lines[linea] := Info;
  end; {for linea}

[*Caro*]

Hola ZayDun

Código Delphi [-]
var
 i : Integer;
 posicion : Integer;
 cadena : String;
begin
 for i:=0 to Memo1.Lines.Count-1 do
  begin
   Cadena := Memo1.Lines[i];
   posicion := Pos(' ', Cadena);
   memo1.Lines[i] := Copy(Cadena, 1, posicion-1);
  end;
end;

Saluditos