Question

How to use switch statement with strings in Pascal

Answer 1

program SwitchExample;

uses
  SysUtils;

var
  str: string;
begin
  str := 'Pascal';

  case str of
    'Foo':
      Writeln('Foo');
    'Wii':
      Writeln('Wii');
    'Pascal':
      Writeln('Pascal');
    'YYI':
      Writeln('YYI');
  else
    Writeln('No match found.');
  end;
end.



(*
run:

Pascal

*)

 

70+ SQL courses for beginners and professionals