strings via indy tcp versenden

[gandime]

so dafür hab ich jetzt eine lösung geschieben es gibt zwar bestimmt iwas besseres aber bei mir funzt es so

client:

Delphi-Quellcode:

procedure tform1.send_sl(als:string);
var
  i:integer;
begin
  IdTCPClient_strings.Host:=Edit1.text;
  IdTCPClient_strings.connect;
  if (als='') then
  begin
    als:='end?';
  end;
  sl.Add('end?'+als);
  for I := 0 to sl.Count - 1 do
  begin
    IdTCPClient_strings.IOHandler.WriteLn(sl[i]);
  end;
  IdTCPClient_strings.disconnect;
end;

server:

Delphi-Quellcode:

procedure TForm1.IdTCPServer_stringsExecute(AContext: TIdContext);
var
  s_z_speicher,s_read,s_command:string;
  sl2,sl:tstringlist;
  i:integer;
begin
  sl2:=tstringlist.create;
  sl.Clear;
  sl2.Clear;
  s_z_speicher:='';
  while (s_z_speicher<>'end') do
  begin
    s_read:=AContext.Connection.IOHandler.ReadLn;
    s_z_speicher:=copy(s_read, 1, pos('?',s_read) - 1);  // vor ?
    s_command:=copy(s_read, pos('?',s_read) + 1, length(s_read));   // nach ?
    sl2.Add(s_read);
  end;
  for I := 0 to sl2.count - 2 do
  begin
    sl.Add(sl2[i]);
  end;
end;

das als:
procedure tform1.send_sl(als:string); damit wird dann in der letzten zeile mitgeschickt, was mit der sl gemacht werden soll

ich hoffe es hilft ijemanden

mfg gandime