Remover espaços em braco de uma String ?

[DiamondStyle 0]

Olá pessoal, 

Eu gostaria de saber se alguém sabe como eu faço para retirar os espaços no meio da string. Ex: Nome: \"Alberto Silva\", e o programa deve retornar \"AlbertoSilva\". 

[nunopicado 1,177]

Há várias formas de conseguires isso, sendo que o compilador que estás a usar também influencia quais podes usar...

Por exemplo, se o teu compilador suportar a função StringReplace, podes fazer simplesmente isto:

Nome := StringReplace(Nome, ' ', '', [rfReplaceAll]);

Outra forma simples seria com recurso a um ciclo:

while Pos(' ', Nome) > 0 do
  Delete(Result, Pos(' ', Nome), 1);

 

[DiamondStyle 0]

nuno, estou a usar o pascalzim

[nunopicado 1,177]

3 minutos atrás, DiamondStyle disse:

nuno, estou a usar o pascalzim

Ohhh, os meus pêsames! 


Acho que a primeira forma não deve funcionar nessa coisa...
A segunda, em principio, não falha.

[thoga31 615]

Além da sugestão dada pelo @nunopicado, importa ter em conta também o que te é autorizado utilizar (estou a considerar que este é um exercício académico).

Segue uma versão que não recorre às funções Pos e Delete:

program test;

function RemSpaces(s : String) : String;
var i : Integer;
begin
    RemSpaces := '';
    for i := 1 to Length(s) do
        if s[i] <> ' ' then
            RemSpaces := RemSpaces + s[i];
end;

begin
    writeln(RemSpaces('Exemplo de uma string.'));
end.

 

[nunopicado 1,177]

Sim, essa é outra das muitas formas de o fazer...
Pessoalmente nunca passei cartão 'ao que podia usar'. A não ser que lá dissesse especificamente 'tem de usar isto' ou 'não pode usar aquilo', eu usava o que me parecesse mais eficaz. 
Mas se o @DiamondStyle achar que é o caso, pode ter essa atenção.