Question

How to remove the first word from string in Pascal

Answer 1

program TrimFirstWordProgram;

function TrimFirstWord(const input: string): string;
var
  spacePos: Integer;
begin
  spacePos := Pos(' ', input);
  if spacePos = 0 then
    spacePos := Pos(#9, input);  // check for tab if no space found

  if spacePos > 0 then
    TrimFirstWord := Copy(input, spacePos + 1, Length(input) - spacePos)
  else
    TrimFirstWord := input;
end;

var
  s: string;

begin
  s := 'c++ c c# java php pascal';
  
  s := TrimFirstWord(s);
  
  WriteLn(s);
end.



(*
run:

c c# java php pascal

*)

 

70+ SQL courses for beginners and professionals