versch. int an server senden

[SirThornberry]

so sollte es gehen

Delphi-Quellcode:

function splitOutIndex(Source: String; Delimiter: String; Index: Integer): String;
var count, number: Integer;
    giveback: String;
begin
 count := 1;
 number := 0;
 giveback := '';
 while count <= length(Source) do
 begin
  if copy(Source, count, length(Delimiter)) = Delimiter then
  begin
   number := number + 1;
   count := count + length(Delimiter);
  end else begin
   if number = Index then giveback := giveback + Source[count];
   count := count + 1;
  end;
 end;
 result := giveback;
end;

[...]
begin
  k:=aThread.Connection.Readln; 
  k1 := splitOutIndex(k, '#', 0);
  k2 := splitOutIndex(k, '#', 1);
  k3 := splitOutIndex(k, '#', 2);
end;