Укоротить код

[Shouldercannon]

Как можно записать этот код покороче:

IdUDPClient1.Send(#$5C#$70#$6C#$61#$79#$65#$72#$73#$5C); // ;\players\
s:=IdUDPClient1.ReceiveString(5000);
Memo5.Text:=Memo5.Text+s;
if (Memo5.Text='') then begin
Exit;
end;

s1:=TStringList.Create;
StrBreakApart(s,'\',s1);
if s1[7]='ping_0' then
case StrtoInt(a) of
1:begin
GVPlayers.AddRow(1);
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[2];
case StrToInt(s1[4]) of
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
end;
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[8];
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[6];
end;

2:begin
GVPlayers.AddRow(1);
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[2];
case StrToInt(s1[4]) of
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
end;
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[8];
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[6];

GVPlayers.AddRow(1);
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[10];
case StrToInt(s1[12]) of
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
end;
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[16];
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[14];
end;

3:begin
GVPlayers.AddRow(1);
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[2];
case StrToInt(s1[4]) of
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
end;
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[8];
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[6];

GVPlayers.AddRow(1);
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[10];
case StrToInt(s1[12]) of
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
end;
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[16];
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[14];

GVPlayers.AddRow(1);
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[18];
case StrToInt(s1[20]) of
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
end;
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[24];
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[22];
end;

И так до 20 игроков.

[Roof]

запиши так:

procaedure vibor1;
begin
GVPlayers.AddRow(1);   
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[2];   
case StrToInt(s1[4]) of   
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;   
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;   
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;   
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;   
end;   
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[8];   
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[6];
end; 

 //название процедуры - практически любое, на твой вкус
procedure vibor2;
begin
GVPlayers.AddRow(1);   
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[10];   
case StrToInt(s1[12]) of   
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;   
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;   
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;   
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;   
end;   
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[16];   
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[14];   
end;  

procedure vibor3; 
begin
GVPlayers.AddRow(1);   
GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[18];   
case StrToInt(s1[20]) of   
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;   
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;   
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;   
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;   
end;   
GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[24];   
GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[22];   
end;

потом в своем коде вместо всех этих строчек используй vibor1, vibor2, vibor3
Понятно объяснил?

[Shouldercannon]

Не совсем понятно как их потом подцепить (vibor1). Например с 1:begin, 2:begin, 3:begin понятно, они цепляются с помощью
s1:=TStringList.Create;
StrBreakApart(s,'\',s1);
if s1[7]='ping_0' then
case StrtoInt(a) of
1:begin...

[Stilet]

Вместо Этих твоих

case StrToInt(s1[<чето там>]) of
0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
end;

сделай так:

const a:array[1..4] of string=('Alien' ,'Marine','Predator','Corporate' );
...........
GVPlayers.Cells[2, GVPlayers.RowCount-1]:=a[StrToInt(s1[<Нужное тебе число>])]

И так везде по коду.

[Shouldercannon]

Что-то я совсем запутался. Сначала говорили про количество игроков потом перешли на расы. Суть проблемыв том, чтобы сделать код прикреплённый в текстовом файле *.doc (Кошмар.rar) короче и чтобы он не потерял свою функциональность. А то с таким сидеть не возможно к томуже их два и всё это обходится почти в 300000 символов.

[Stilet]

Shouldercannon

Ты мой пост прочитал внимательно?
Смысл в том чтобы избавить твою прогу от многочисленных case.

[alexBlack]

по-моему так:

procedure part1(N:integer);
begin
   GVPlayers.AddRow(1);
   GVPlayers.Cells[0, GVPlayers.RowCount-1]:=s1[N];
   case StrToInt(s1[N+2]) of
      0:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Alien' ;
      1:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Marine' ;
      2:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Predator' ;
      3:GVPlayers.Cells[2, GVPlayers.RowCount-1]:='Corporate' ;
   end;
   GVPlayers.Cells[3, GVPlayers.RowCount-1]:=s1[N+6];
   GVPlayers.Cells[4, GVPlayers.RowCount-1]:=s1[N+4];
end;

procedure part2(N1, N2:integer);
begin
   While N1 <= N2 do begin
      part1(N1);
      N1 := N1 + 8;
   end;
end; 

....
s1:=TStringList.Create;
StrBreakApart(s,'\',s1);
if s1[7]='ping_0' then
   N := StrtoInt(a);
   if N in [1..20] then part2(2,  2+(N-1)*8);
s1.Free;
....

Это весь код из архива

[Shouldercannon]

Всё получилось. Все спасибо за помощь.