adicionando caracter em uma string
preciso adicionar nos espaços brancos de uma strng %20
só que vai varias os espacos em branco na string porque vou quegar nomes de funcionarios do banco
no caso preciso disso
maycon%20testando%envio
ou pode ser
lucasssss%20fagundes%20da%20Silva
os nomes vao variar eu nunca saberei onde vai ficas os espacos em branco tem como fazer o que eu quero ?
só que vai varias os espacos em branco na string porque vou quegar nomes de funcionarios do banco
no caso preciso disso
maycon%20testando%envio
ou pode ser
lucasssss%20fagundes%20da%20Silva
os nomes vao variar eu nunca saberei onde vai ficas os espacos em branco tem como fazer o que eu quero ?
Lucas
Curtidas 0
Melhor post
Pedro Campos
18/07/2020
procedure SubstituirBrancos(var s: string);
var
p: integer;
begin
p := Pos(' ', s); // procura a posição do 1º branco
while P > 0 do
begin
delete(s, p, 1); // exclui o caracter da posição p
insert('%20', s, p); // insere a sequencia nesta posição
p := Pos(' ', s); // procura o proximo - quando P for 0, não há mais o caracter ' '
end;
end;
var
p: integer;
begin
p := Pos(' ', s); // procura a posição do 1º branco
while P > 0 do
begin
delete(s, p, 1); // exclui o caracter da posição p
insert('%20', s, p); // insere a sequencia nesta posição
p := Pos(' ', s); // procura o proximo - quando P for 0, não há mais o caracter ' '
end;
end;
GOSTEI 2
Mais Respostas
Lucas
17/07/2020
procedure SubstituirBrancos(var s: string);
var
p: integer;
begin
p := Pos('' '', s); // procura a posição do 1º branco
while P > 0 do
begin
delete(s, p, 1); // exclui o caracter da posição p
insert(''%20'', s, p); // insere a sequencia nesta posição
p := Pos('' '', s); // procura o proximo - quando P for 0, não há mais o caracter '' ''
end;
end;
var
p: integer;
begin
p := Pos('' '', s); // procura a posição do 1º branco
while P > 0 do
begin
delete(s, p, 1); // exclui o caracter da posição p
insert(''%20'', s, p); // insere a sequencia nesta posição
p := Pos('' '', s); // procura o proximo - quando P for 0, não há mais o caracter '' ''
end;
end;
S seria o que ?
GOSTEI 0
Lucas
17/07/2020
procedure SubstituirBrancos(var s: string);
var
p: integer;
begin
p := Pos('' '', s); // procura a posição do 1º branco
while P > 0 do
begin
delete(s, p, 1); // exclui o caracter da posição p
insert(''%20'', s, p); // insere a sequencia nesta posição
p := Pos('' '', s); // procura o proximo - quando P for 0, não há mais o caracter '' ''
end;
end;
var
p: integer;
begin
p := Pos('' '', s); // procura a posição do 1º branco
while P > 0 do
begin
delete(s, p, 1); // exclui o caracter da posição p
insert(''%20'', s, p); // insere a sequencia nesta posição
p := Pos('' '', s); // procura o proximo - quando P for 0, não há mais o caracter '' ''
end;
end;
S seria o que ?
deu certo vlw
GOSTEI 0