SRL Archive - OSR Help

Is there any way to remove the spaces from a string?

program New;
var
  s: string;
  
begin
  s := Replace('This work?', ' ', '');
  writeln(s);
end.

explode(s, ' ') or something like that?

From: Timer

program New;
var
  s: string;
  
begin
  s := Replace('This work?', ' ', '');
  writeln(s);
end.

Thank you!
(btw u had it backwards, it would be s := Replace('This work', ' ', ''); :p)

Mario cookie 4 u, nom nom.

From: bionicle1800
Thank you!
(btw u had it backwards, it would be s := Replace('This work', ' ', ''); :p)

Mario cookie 4 u, nom nom.

Isn't that how I had it? :o

EDIT: If you wanna do something cool, like Blumbebee said–

program New;
var
  s: string;
  ss: TStringArray;
  i, h: Integer;
  
begin
  s := 'Lets blow this bitch up!';
  ss := Explode(' ', s);
  h := High(ss);
  for i := 0 to h do
    WriteLn(ss[i]);
end.

Or just trim..

From: Nava2
Or just trim..

Thanks, but Replace worked perfectly :)
I had a number to a string with spaces, but it wouldn't convert to an integer unless the spaces were gone. I was working price checking functions if you want to take a look at it:
http://villavu.com/forum/showthread.php?p=699269#post699269

From: Nava2
Or just trim..

Doesnt trim remove the left and right space?

From: Frement
Doesnt trim remove the left and right space?

Yes, Trim wouldn't remove spaces if there in the middle of a string =)

From: Dgby714
Yes, Trim wouldn't remove spaces if there in the middle of a string =)

Yes I know that :) Just correcting it would be kind of rude, so i put it in a form of a question thought i didnt need an answer ;)

How is correcting a mistake being rude? He might've meant TrimOthers, which would work if the string he wanted was only alphanumerical characters.

From: i luffs yeww
How is correcting a mistake being rude? He might've meant TrimOthers, which would work if the string he wanted was only alphanumerical characters.

That was what I meant, or you could use getNumbers todo theoretically the same thing.

s := srl_Implode(srl_Explode('oh meow?', ' '), '');

Dunno what timer was doing with that looping silliness…

Silly, mixster. There's only two parameters each function!

{.include SRL/SRL.scar}
var
  s: string;

begin
  SetupSRL;
  s := srl_Implode(srl_Explode('oh meow?', ' '), '');
  Writeln(s);
end.

From: i luffs yeww
Silly, mixster. There's only two parameters each function!

{.include SRL/SRL.scar}
var
  s: string;

begin
  SetupSRL;
  s := srl_Implode(srl_Explode('oh meow?', ' '), '');
  Writeln(s);
end.

Silly, i luffs yeww. There's no need for SetupSRL; there!

{.include SRL/SRL.scar}

begin
  Writeln(srl_Implode(srl_Explode('oh meow?', ' '), ''));
end.

You could also use SCAR's Explode and Implode functions