- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
var
WS1, WS2, WS3: TWSocket;
...
begin
...
WS1 := TWSocket.Create(Self);
WS2 := TWSocket.Create(Self);
WS3 := TWSocket.Create(Self);
...
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 2
+146
var
WS1, WS2, WS3: TWSocket;
...
begin
...
WS1 := TWSocket.Create(Self);
WS2 := TWSocket.Create(Self);
WS3 := TWSocket.Create(Self);
...
end;
и это гавно код
+146
var
WS: array[1..3] of TWSocket;
...
var
I: Integer;
begin
...
for I := 1 to 3 do
WS := TWSocket.Create(Self);
...
end;
Гавно код так считают