Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
General
»
String replace or add ' not "
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
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
dbgrid picklist detect wh...
by
tdb
[
Today
at 04:09:05 am]
changing the position of ...
by
kjteng
[
Today
at 03:53:46 am]
Why free pascal suppress ...
by
dsiders
[
Today
at 02:11:32 am]
Treeview: full-width back...
by
zeljko
[February 09, 2025, 11:13:09 pm]
IBSQL - CheckClosed
by
Zoran
[February 09, 2025, 10:36:43 pm]
Failed to connect to a si...
by
MarkMLl
[February 09, 2025, 10:16:12 pm]
What's up with PtcCrt's d...
by
TBMan
[February 09, 2025, 10:07:17 pm]
FPC can't link screen_dem...
by
marcov
[February 09, 2025, 09:22:40 pm]
Transparent animation
by
majolika
[February 09, 2025, 08:22:22 pm]
Read Excel file with fpsp...
by
zeljko
[February 09, 2025, 08:17:38 pm]
Error assembling some lab...
by
Fred vS
[February 09, 2025, 08:11:17 pm]
Drawing with psInsidefram...
by
wp
[February 09, 2025, 08:05:48 pm]
Scrollbox, scrollbar Back...
by
dsiders
[February 09, 2025, 07:32:48 pm]
Deal or no Deal graphic
by
TRon
[February 09, 2025, 07:27:51 pm]
MQTT made easier...
by
cdbc
[February 09, 2025, 07:10:17 pm]
zeoslib av on transactio...
by
jksmithiii
[February 09, 2025, 07:07:16 pm]
A basic windows program s...
by
TBMan
[February 09, 2025, 05:44:37 pm]
Is there a way to emphasi...
by
cdbc
[February 09, 2025, 04:17:43 pm]
RTL: export/import WriteL...
by
paule32
[February 09, 2025, 04:15:30 pm]
read keys from windows ko...
by
marcov
[February 09, 2025, 03:49:22 pm]
my programs crash
by
jamie
[February 09, 2025, 01:22:58 pm]
Custom self drawn compone...
by
cdbc
[February 09, 2025, 12:50:10 pm]
IsNan
by
robert rozee
[February 09, 2025, 12:07:43 pm]
Reading and writing AVIF ...
by
Boleeman
[February 09, 2025, 12:01:52 pm]
FLIF and FUIF Formats (Fr...
by
Boleeman
[February 09, 2025, 11:42:17 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: String replace or add ' not " (Read 873 times)
eldonfsr
Hero Member
Posts: 532
String replace or add ' not "
«
on:
January 15, 2025, 10:23:59 pm »
I tried to replace or add double quotes to single quote but i don't get is way to replace
what i tried to do is validate register on table so need to send keyfields but whe i made locate i need separate them for fieldname and fieldvalue..
Code: Pascal
[Select]
[+]
[-]
Procedure
TForMMain
.
MigrateTable
(
OldTbl
:
TBufDataSet
;
NewTbl
:
TBufDataSet
;
KeyField
:
Array
of
String
)
;
Var
Fldname
:
String
;
cf
,
i
:
Integer
;
begin
if
(
NewTbl
.
Active
=
false
)
then
begin
NewTbl
.
Open
;
end
;
oldtbl
.
First
;
while
not
oldtbl
.
EOF
do
begin
if
(
length
(
KeyField
)
=
1
)
then
begin
Fldname
:
=
''
''
+
KeyField
[
0
]
+
''
''
;
if
(
newtbl
.
Locate
(
FldName
,
Oldtbl
.
FieldByName
(
FldName
)
.
asString
,
[
]
)
)
then
begin
newtbl
.
edit
;
end
else
begin
newtbl
.
Append
;
end
;
end
else
begin
Fldname
:
=
''
+
KeyField
[
0
]
;
for
i
:
=
1
to
length
(
KeyField
)
-
1
do
begin
Fldname
:
=
Fldname
+
chr
(
39
)
+
','
+
chr
(
39
)
+
KeyField
[
i
]
+
chr
(
39
)
;
end
;
// show fldname but its contain " not single quote ans lazarus need..
if
(
newtbl
.
Locate
(
FldName
,
Arrayof
(
Oldtbl
.
FieldByName
(
KeyField
[
0
]
)
.
asString
+
,
[
]
)
)
then
begin
newtbl
.
edit
;
end
else
begin
newtbl
.
Append
;
end
;
end
;
newtbl
.
Append
;
for
cf
:
=
0
to
oldtbl
.
FieldCount
-
1
do
begin
fldname
:
=
oldtbl
.
FieldDefs
[
cf
]
.
DisplayName
;
newtbl
.
FieldByName
(
fldname
)
.
Value
:
=
oldtbl
.
FieldByName
(
fldname
)
.
Value
;
end
;
newtbl
.
Post
;
oldtbl
.
Next
;
end
;
NewTbl
.
SaveToFile
(
oldtbl
.
FileName
)
;
end
;
code
]
Logged
Thaddy
Hero Member
Posts: 16520
Kallstadt seems a good place to evict Trump to.
Re: String replace or add ' not "
«
Reply #1 on:
January 16, 2025, 06:14:41 am »
Something like this? (untested)
Code: Pascal
[Select]
[+]
[-]
{$mode objfpc){$H+}
uses
sysutils
;
var
s
:
string
=
'test"me"a bit "more" or "something"'
;
begin
s
:
=
stringreplace
(
s
,
#34
,
#39
,
[
rfReplaceAll
]
)
;
end
.
#39 avoids ''''
«
Last Edit: January 16, 2025, 06:26:27 am by Thaddy
»
Logged
But I am sure they don't want the Trumps back...
eldonfsr
Hero Member
Posts: 532
Re: String replace or add ' not "
«
Reply #2 on:
January 16, 2025, 03:18:17 pm »
Yes but #34 and #39 is same both are " and i need '
Logged
Remy Lebeau
Hero Member
Posts: 1460
Re: String replace or add ' not "
«
Reply #3 on:
January 16, 2025, 04:49:23 pm »
Quote from: eldonfsr on January 16, 2025, 03:18:17 pm
Yes but #34 and #39 is same both are " and i need '
No, #34 is " (double quote) and #39 is ' (single quote).
You could also use:
Code: Pascal
[Select]
[+]
[-]
s
:
=
StringReplace
(
s
,
'"'
,
''
''
,
[
rfReplaceAll
]
)
;
But, if this is not accomplishing what you need, then you need to explain better what you are actually trying to do.
Also, have a look at
QuotedStr()
or
TStringHelper.QuotedString()
or
TStringList.DelimitedText
.
«
Last Edit: January 16, 2025, 04:54:29 pm by Remy Lebeau
»
Logged
Remy Lebeau
Lebeau Software
- Owner, Developer
Internet Direct (Indy)
- Admin, Developer (
Support forum
)
Thaddy
Hero Member
Posts: 16520
Kallstadt seems a good place to evict Trump to.
Re: String replace or add ' not "
«
Reply #4 on:
January 16, 2025, 05:09:22 pm »
Tnx for pointing that out, Remy.
(the # notation saves you from using '''' etc)
«
Last Edit: January 16, 2025, 05:14:17 pm by Thaddy
»
Logged
But I am sure they don't want the Trumps back...
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
General
»
String replace or add ' not "
TinyPortal
© 2005-2018