Initial data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions

View file

@ -0,0 +1,25 @@
program QueueUsage;
{$APPTYPE CONSOLE}
uses Generics.Collections;
var
lStringQueue: TQueue<string>;
begin
lStringQueue := TQueue<string>.Create;
try
lStringQueue.Enqueue('First');
lStringQueue.Enqueue('Second');
lStringQueue.Enqueue('Third');
Writeln(lStringQueue.Dequeue);
Writeln(lStringQueue.Dequeue);
Writeln(lStringQueue.Dequeue);
if lStringQueue.Count = 0 then
Writeln('Queue is empty.');
finally
lStringQueue.Free;
end
end.