Question

How to convert part of a string between two indexes to uppercase in Pascal

Answer 1

program ConvertPartToUppercaseProgram;

function ConvertPartToUppercase(str: String; start, finish: Integer): String;
var
  before, upperPart, after: String;
begin
  // Extract the part of the string before the start index
  before := Copy(str, 1, start - 1);
  
  // Convert the specified part to uppercase
  upperPart := UpCase(Copy(str, start, finish - start + 1));

  // Extract the part of the string after the end index
  after := Copy(str, finish + 1, Length(str) - finish);
  
  ConvertPartToUppercase := before + upperPart + after;
end;

var
  s: String;
begin
  s := 'pascal programming';
  
  s := ConvertPartToUppercase(s, 4, 6);
  Writeln(s);
  
  s := ConvertPartToUppercase(s, 14, 14);
  Writeln(s);
end.



(*
run:

pasCAL programming
pasCAL prograMming

*)

 

70+ SQL courses for beginners and professionals