aha und wie das= den function quelltext unter die deklaration quetschen?
Delphi-Quellcode:
Type
THelper = class
public
class procedure ServerExec(AThread: TIdPeerThread);
var
Command: String;
begin
//Der Server wurde aufgerufen
while AThread.Connection.Connected do begin
//Command einlesen
Command := AThread.Connection.CurrentReadBuffer;
end;
end;
end;