Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Other Languages
»
Spanish
»
Detectar un espacio en un string
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Lazarus for Windows on aa...
by
dsiders
[
Today
at 01:22:37 am]
Demoscene Square dot flag...
by
Gigatron
[
Today
at 01:14:18 am]
The weird Rewrite bug
by
jamie
[April 16, 2024, 11:27:36 pm]
TBGRABitmap.TextSize retu...
by
circular
[April 16, 2024, 10:52:20 pm]
Have anyone develop UEFI ...
by
440bx
[April 16, 2024, 09:39:52 pm]
For-in loop over constant...
by
VisualLab
[April 16, 2024, 09:15:53 pm]
BUG REPORT: Unable to gen...
by
PascalDragon
[April 16, 2024, 09:02:49 pm]
Lazarus project made on M...
by
Odacir
[April 16, 2024, 08:56:58 pm]
Is it possible to support...
by
PascalDragon
[April 16, 2024, 08:51:36 pm]
CORBA interface and Varia...
by
PascalDragon
[April 16, 2024, 08:35:43 pm]
Macros confuse error mess...
by
PascalDragon
[April 16, 2024, 08:13:25 pm]
Form scaling
by
fxeconomist
[April 16, 2024, 08:09:39 pm]
InstallAware Using Lazaru...
by
Thaddy
[April 16, 2024, 07:21:31 pm]
Post your internal error ...
by
Eugene Loza
[April 16, 2024, 07:12:35 pm]
C-evo: New Horizons 1.3.0...
by
Chronos
[April 16, 2024, 06:32:41 pm]
How can i make this windo...
by
Handoko
[April 16, 2024, 06:23:43 pm]
CocoaInt.CocoaIconUse no ...
by
dsiders
[April 16, 2024, 06:22:10 pm]
Does anyone know why this...
by
Laksen
[April 16, 2024, 06:01:04 pm]
pre-processor symbol when...
by
paule32
[April 16, 2024, 05:11:35 pm]
How are cookies share Web...
by
Thaddy
[April 16, 2024, 04:59:59 pm]
Azure sql database will n...
by
wpflum
[April 16, 2024, 04:04:56 pm]
Values of a custom compon...
by
CM630
[April 16, 2024, 01:42:08 pm]
Arabic text, problem on L...
by
marius.maximus
[April 16, 2024, 12:59:47 pm]
[solved] Lazarus does not...
by
wp
[April 16, 2024, 12:38:09 pm]
How does Castle Game Eng...
by
Aistis
[April 16, 2024, 12:21:03 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: Detectar un espacio en un string (Read 1975 times)
mav
Jr. Member
Posts: 80
Detectar un espacio en un string
«
on:
May 12, 2021, 01:41:02 am »
¿Como detectarlo? Sin que de fallos,
He probado de varias maneras y no lo encuentro,
Code: Pascal
[Select]
[+]
[-]
nombre
:
=
Edit1
.
Text
;
for
i
:
=
1
to
length
(
nombre
)
do
begin
if
(
nombre
[
i
]
in
(
' '
)
then
// o #32, $20 el in no deja utilizarlo aquí
begin
ShowMessage
(
'Tu nombre no puede tener espacios '
)
;
Exit
;
end
;
end
;
Saludos.
Logged
dseligo
Hero Member
Posts: 1219
Re: Detectar un espacio en un string
«
Reply #1 on:
May 12, 2021, 02:37:42 am »
Code: Pascal
[Select]
[+]
[-]
nombre
:
=
Edit1
.
Text
;
if
Pos
(
' '
,
nombre
)
>
0
then
begin
ShowMessage
(
'Tu nombre no puede tener espacios '
)
;
Exit
;
end
;
Logged
mav
Jr. Member
Posts: 80
Re: Detectar un espacio en un string
«
Reply #2 on:
May 12, 2021, 02:48:42 am »
Vale, funciona perfectamente.
Gracias.
Logged
lucamar
Hero Member
Posts: 4219
Re: Detectar un espacio en un string
«
Reply #3 on:
May 12, 2021, 05:00:31 am »
En caso de que lo necesites alguna vez, la sintaxix correcta para tu código original es:
Code: Pascal
[Select]
[+]
[-]
if
nombre
[
i
]
in
[
' '
]
then
con corchetes, no paréntesis, porque se trata de la pertenencia a un conjunto ("set").
Logged
Turbo Pascal 3 CP/M - Amstrad PCW 8256 (512 KB !!!)
Lazarus/FPC 2.0.8/3.0.4 & 2.0.12/3.2.0 - 32/64 bits on:
(K|L|X)Ubuntu 12..18, Windows XP, 7, 10 and various DOSes.
mav
Jr. Member
Posts: 80
Re: Detectar un espacio en un string
«
Reply #4 on:
May 12, 2021, 02:59:28 pm »
Gracias.
:)Buen "truco", si me va a servir, porque ya en mas ocasiones me ha dado error lo del
in
y
estoy viendo que como en este caso son los corchetes...
Logged
Edson
Hero Member
Posts: 1302
Re: Detectar un espacio en un string
«
Reply #5 on:
May 12, 2021, 05:19:10 pm »
Considerar que las tabulaciones son también espacios en blanco.
A lo mejor conviene más hacer una comparación de caracteres válidos, que inválidos.
Logged
Lazarus 2.2.6 - FPC 3.2.2 - x86_64-win64 on Windows 10
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Other Languages
»
Spanish
»
Detectar un espacio en un string
TinyPortal
© 2005-2018