Question

How to copy a string in Pascal

Answer 1

// Copy using simple assignment

program CopyString;

var
  src, dest: string;

begin
  src := 'Programming is fun';
  dest := src;

  writeln(dest);
end.



(*
run:

Programming is fun

*)

 

70+ SQL courses for beginners and professionals

Answer 2

// Copy using Copy() function

program CopyString;

var
  src, dest: string;

begin
  src := 'Programming is fun';
  dest := Copy(src, 1, Length(src));

  writeln(dest);
end.



(*
run:

Programming is fun

*)

 

70+ SQL courses for beginners and professionals

Answer 3

// Copy using Move()

program CopyString;

var
  src: string;
  dest: string;

begin
  src := 'Programming is fun';
  SetLength(dest, Length(src));

  Move(src[1], dest[1], Length(src));

  writeln(dest);
end.



(*
run:

Programming is fun

*)

 

70+ SQL courses for beginners and professionals

Answer 4

// Copy using manual loop

program CopyString;

var
  src, dest: string;
  i: Integer;

begin
  src := 'Programming is fun';
  dest := '';

  for i := 1 to Length(src) do
    dest := dest + src[i];

  writeln(dest);
end.



(*
run:

Programming is fun

*)

 

70+ SQL courses for beginners and professionals

Answer 5

// Copy using StrCopy with PChar

program CopyString;

uses
  SysUtils;

var
  src: PChar;
  dest: array[0..64] of Char;

begin
  src := 'Programming is fun';
  StrCopy(dest, src);

  writeln(dest);
end.



(*
run:

Programming is fun

*)

 

70+ SQL courses for beginners and professionals

Answer 6

// Copy using StrLCopy

program CopyString;

uses
  SysUtils;

var
  src: PChar;
  dest: array[0..10] of Char;

begin
  src := 'Programming is fun';
  StrLCopy(dest, src, SizeOf(dest) - 1);

  writeln(dest);
end.



(*
run:

Programmin

*)

 

70+ SQL courses for beginners and professionals

Answer 7

// Copy using Format()

program CopyString;

uses
  SysUtils;

var
  src, dest: string;

begin
  src := 'Programming is fun';
  dest := Format('%s', [src]);

  writeln(dest);
end.



(*
run:

Programming is fun

*)

 

70+ SQL courses for beginners and professionals

Answer 8

// Copy using Concat()

program CopyString;

var
  src, dest: string;

begin
  src := 'Programming is fun';
  dest := Concat(src);

  writeln(dest);
end.



(*
run:

Programming is fun

*)

 

70+ SQL courses for beginners and professionals