Thread: Adding parameters to a procedure

This is from Turkey's Reverse Connection example.
Procedure EnunConnections;(ListConnections)
var
i : integer;
begin
for i := 0 To ServerSocket1.Socket.ActiveConnections -1 do
begin ConnectionsListBox.Items.add(ServerSocket1.Socket. Connections[i].RemoteHost);

Since i'm using a ListView instead of a ListBox i'm getting an error at the last line "Too many actual parameters" So.. i understand that i have to redeclare the procedure using parameters to fix this problem, but i'm a little lost on that. How this procedure should look like ?

if your probloem is in how adding items to a ListView use this code:

var
Sin: TListItem;
begin
Sin := SinList.Items.Add;
Sin.Caption := 'Hello'

u have to change

Code:

ConnectionsListBox.Items.add(ServerSocket1.Socket. Connections[i].RemoteHost);

Well, i probably didn't explain it well.ListView replacing a listbox (ConnectionsListBox)
Listview1.Items.add(ServerSocket1.Socket. Connections[i].RemoteHost);
And this is the problem,so..what to do ??

Let me correct it. I know i should change that line though, this is what's driving me crazy,i can't find a solution, that's why i tried to change the procedure declaration to accept it.

OK, better i explain what i want to do.
I want the remote host displayed in a blank square( any component..) associated to an icon. All right now it's clear i guess !

Code:

Procedure EnunConnections;
var
i : integer;
myListview:tlistitem;
begin

myListview:=listview1.Items.Add;
for i := 0 To ServerSocket1.Socket.ActiveConnections -1 do
begin myListview.Caption:=ServerSocket1.Socket.Connections[i].RemoteHost;
end;

I want the remote host displayed in a blank square( any component..) associated to an icon

yeah i like that set out ratws

Originally Posted by LttCoder

Code:

Procedure EnunConnections;
var
i : integer;
myListview:tlistitem;
begin

myListview:=listview1.Items.Add;
for i := 0 To ServerSocket1.Socket.ActiveConnections -1 do
begin myListview.Caption:=ServerSocket1.Socket.Connections[i].RemoteHost;
end;

Thanks boss ! I was trying to use the Caption propertie but i was missing the obvious...
Thanks again !