Pues ahora que hablamos de un memo, mas liado estoy "compadre"
Código Delphi
[-]
var lista:TStringList;
begin
lista := GetIps;
Memo.Lines.Assign(lista);
lista.Free;
Y como la funcion devuelve un TStrings, que es del mismo tipo que un Memo.Lines, pues nada se asigna el contenido de uno a otro y corriendo que es gerundio.
Que no, que solo quiero una IP:
Código Delphi
[-]
var listaIps:TStringList;
begin
listaIps:= GetIps;
if listaips.count>0 then
memo1.lines.Add(listaips.items[0];
listaIps.Free;
end;
Advertencia
Gorda: La función GetIps se encarga de crear el TStringList que está devolviendo en Result; por eso yo no creo la ListaIps. Solo me encargo de destruirlo con .Free
Otra cosa: Devolver un String con un separador de $$, pues que quieres que os diga, no lo veo yo claro, ya que para eso usamos las propiedades del propio TString:
CharDelimiter
DelimitedText
Y si queremos usar el delimitador "coma" pues ni siquiera tenemos que usar CharDelimiter, ya que el TString provee la propiedad
CommaText que precisamente nos devuelve un String con todos lo items separados por comas.
Despues de todo este rollo, ¿que vas a suar?
Un saludo