Top rank per group: Difference between revisions
m
→{{header|Delphi}}
No edit summary |
|||
Line 1,426:
var S,OldDept: string;
procedure NewDepartment(Name: string);
begin
Memo.Lines.Add('');
Memo.Lines.Add('Department: '+Name);
Memo.Lines.Add('Employee Name Employee ID Salary Department');
OldDept:=Name;
end;
Line 1,484:
Elapsed Time: 35.284 ms.
</pre>
=={{header|Dyalect}}==
|