CodeSOD: Four Sellers

Понедельник, 24 Октября 2022 г. 09:30 + в цитатник

Andrew had to touch some Pascal code. Yes, really. He writes: "I came across this section of code today and really wanted to find out who wrote it. Then I really wanted to find out who added the comment."

{ Ugly code follows, a loop would be nice }
{ Seller #1 }
if not EOF then
begin
	lsSName  := FieldByName('txtname').AsString;
	if Length(FieldByName('txtsname').AsString) > 0 then
	begin
		lsSName := Concat(lsSName,', ' + FieldByName('txtsname').AsString);
	end;
	Next;
	sctevarS1Name.AsString := lsSName;
end
else
begin
	Close;
	Exit;
end; { else }
{ Seller #2 }
if not EOF then
begin
	lsSName  := FieldByName('txtname').AsString;
	if Length(FieldByName('txtsname').AsString) > 0 then
	begin
		lsSName := Concat(lsSName,', ' + FieldByName('txtsname').AsString);
	end;
	Next;
	sctevarS2Name.AsString := lsSName;
end
else
begin
	Close;
	Exit;
end; { else }
{ Seller #3 }
if not EOF then
begin
	lsSName  := FieldByName('txtname').AsString;
	if Length(FieldByName('txtsname').AsString) > 0 then
	begin
		lsSName := Concat(lsSName,', ' + FieldByName('txtsname').AsString);
	end;
	Next;
	sctevarS3Name.AsString := lsSName;
end
else
begin
	Close;
	Exit;
end; { else }
{ Seller #4 }
if not EOF then
begin
	lsSName  := FieldByName('txtname').AsString;
	if Length(FieldByName('txtsname').AsString) > 0 then
	begin
		lsSName := Concat(lsSName,', ' + FieldByName('txtsname').AsString);
	end;
	Next;
	sctevarS4Name.AsString := lsSName;
end
else
begin
	Close;
	Exit;
end; { else }