Example code : UpperCase, LowerCase, ToLower, ToUpper
|
procedure TForm1.W3Button15Click(Sender: TObject);
var abc, lower, upper : string;
begin
// Convert a lower case letter to upper case
lower := 'g';
upper := UpperCase(lower);
// Display these letters
WriteLn('lower = '+lower+' upper = '+upper);
abc := "How are you doing today?;I'm fine, and you?";
WriteLn(abc.ToLower);
WriteLn(LowerCase(abc));
WriteLn(abc.ToUpper);
WriteLn(UpperCase(abc));
end;
|
|
lower = g upper = G
how are you doing today?;i'm fine, and you?
how are you doing today?;i'm fine, and you?
HOW ARE YOU DOING TODAY?;I'M FINE, AND YOU?
HOW ARE YOU DOING TODAY?;I'M FINE, AND YOU?
function W3Button1Click(Self, Sender$13) {
var str$2 = undefined;
var abc$4 = "";
abc$4 = " How are you doing today?;I'm fine, and you? ";
abc$4 = Trim$_String_Integer_Integer_(abc$4,8,23);
WriteLn(DupeString(abc$4,3));
WriteLn(DupeString(abc$4,2));
WriteLn(StringOfString(abc$4,3));
}
|
|