SRL Archive - OSR Help

How do I do this below

text := Upper('text');
writeln(text); 

and would print out this: 'Text'

Writeln('The UpText is: ' + GetUpText);

Should do it I think!]

OOPS ROFL! NEVER MIND!


Try UpperCase instead of Upper

From: YoHoJo

Writeln('The UpText is: ' + GetUpText);

Should do it I think!]

OOPS ROFL! NEVER MIND!


Try UpperCase instead of Upper

UpperCase changes all the letters to uppercase I'm just trying to change the first letter.

program new;
{$I SRL/SRL.Simba}

Function FLU(str: String): String;
begin
  Str[1]:= UpperCase(Str[1])[1]
  Result:= Str;
end;

begin
  Flu('dfsgs');
end.

Isn't there a Capitalize function? I could swear we had one.

ok I see

program new;
var
  text: string;

begin
  text := 'hello';
  writeln(Capitalize(text));

end.    

what am I doing wrong here?
[Error] (11:30): Type mismatch at line 10
Compiling failed.

program new;
var
  text,Captext,Lowertext,Alltext: TStringArray;
  next: integer;
begin


  text :=  ['hello', 'bot', 'sup']

  Captext := Capitalize(text);
  Lowertext := Lowercase(text);
  Alltext := Captext + Lowertext
  For next := 0 to high(Alltext) do
  begin
    writeln(Alltext[next]));
  end;
end.

Need to do Capitalize(text[x]), and the same for the others.

I need to loop it though, huh?

Yup :)

This what I came up with, but it's not working.


ok this what I have now but it still not working

program new;
var
  text,Captext,Lowertext,Alltext: TStringArray;
  next: integer;
begin


  text :=  ['hello', 'bot', 'sup']
  SetLength(Captext, high(text));
  for next := 0 to high(text) do
    Captext[next] := Capitalize(text[next]);

  //Lowertext := Lowercase(text);
  //Alltext := Captext + Lowertext
  for next := 0 to high(Captext) do
  begin
  writeln(Captext[next]);
  end;
end. 

From: bud_wis_er_420
This what I came up with, but it's not working.


ok this what I have now but it still not working

program new;
var
  text,Captext,Lowertext,Alltext: TStringArray;
  next: integer;
begin


  text :=  ['hello', 'bot', 'sup']
  [B]SetLength(Captext, length(text)[/B]); 
  for next := 0 to high(text) do
    Captext[next] := Capitalize(text[next]);

  //Lowertext := Lowercase(text);
  //Alltext := Captext + Lowertext
  for next := 0 to high(Captext) do
  begin
  writeln(Captext[next]);
  end;
end. 

See bolded.

EDIT: Just realized I left part of the previous code there, my bad.

Thx