SRL Archive - Research & Development Lounge

program New;

function ConvertCaps(word:string):string;
var
  i:integer;
begin
  for i := 1 to high(word) do
    if inrange(ord(word[i]),65,90) then
      result:=result+chr(ord(word[i])+32)
    else
    result:=result+word[i];
end;

begin
  writeln(convertcaps('Hello'));
end.

input 'Hello'

output 'hello'

program New;

function TrimCaps(word:string):string;
var
  i:integer;
begin
  for i := 1 to high(word) do
    if not inrange(ord(word[i]),65,90) then
      result:=result+word[i]
end;

begin
  writeln(trimcaps('Hello'));
end.

input 'Hello'

ouput 'ello'

For the first one, why not just use lowercase?

You also use TrimCaps for both instead of ConvertCaps in the first one.

From: Method
You also use TrimCaps for both instead of ConvertCaps in the first one.

No you couldn't?

From: bullzeye95
No you couldn't?

His first post clearly says writeln(trimcaps('Hello')); in the main loop. So yes, he could and yes, he did.

That was a copy and paste mistake…

From: bullzeye95
That was a copy and paste mistake…

Which is why I mentioned that he used one instead of the other.

:rolleyes:

function ConvertCaps(s : string) : string;
begin
  result := lowercase(s);
end;

u should be a dev!

For the first, LowerCase is faster because its delphi, and for the second there doesn't seem to be a useful function for that.

All that you do is delete capitals, which would render any string useless. Even for uptext finding you can't use that, you CAN use it if its in a TSA though.

Waddo: You stole a mixture of mine and Widget's function for TrimCaps. Thanks for the credit.
Useful for UpText finding based on NPC's full name.