adicionando caracter em uma string
17/07/2020
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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;
Pedro Campos
Responder
Mais Posts
20/07/2020
Lucas
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 ?
Responder
20/07/2020
Lucas
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
