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
Treeview: full-width back...
by
d7_2_laz
[
Today
at 09:30:43 pm]
Transparent animation
by
majolika
[
Today
at 09:29:03 pm]
LAMW manager out of date?
by
jmpessoa
[
Today
at 09:25:57 pm]
ZBarcodeView
by
jmpessoa
[
Today
at 09:19:24 pm]
Compile App Error
by
jmpessoa
[
Today
at 09:15:32 pm]
Error on LAMW application...
by
jmpessoa
[
Today
at 09:13:08 pm]
align a panel alClient in...
by
Martin_fr
[
Today
at 09:13:04 pm]
Fpcupdeluxe
by
petex
[
Today
at 09:12:02 pm]
using RunCommand to wrap ...
by
MarkMLl
[
Today
at 09:10:09 pm]
NTSC/CRT port for Free Pa...
by
MarkMLl
[
Today
at 08:37:07 pm]
Tesseract for ocr
by
MarkMLl
[
Today
at 08:33:54 pm]
Usage of Lazlogger 2 - st...
by
PeterX
[
Today
at 07:59:13 pm]
read keys from windows ko...
by
TRon
[
Today
at 06:27:02 pm]
BUG in InputQuery if defa...
by
robert rozee
[
Today
at 06:20:50 pm]
my programs crash
by
Bart
[
Today
at 06:06:34 pm]
MAC refuse ti rebuild IDE...
by
Johan Holstein
[
Today
at 05:15:59 pm]
TOHLCChartSource
by
ronhud
[
Today
at 04:32:58 pm]
Strange implicit string c...
by
nanobit
[
Today
at 03:49:40 pm]
visasession
by
MarkMLl
[
Today
at 03:34:17 pm]
"set of": order of elemen...
by
440bx
[
Today
at 03:23:58 pm]
how to change font.color ...
by
bbd666
[
Today
at 03:12:15 pm]
UADE Library
by
Gigatron
[
Today
at 01:50:35 pm]
Unselect all rows in stri...
by
Jonny
[
Today
at 01:10:54 pm]
Is there a code formatter...
by
Zvoni
[
Today
at 12:56:12 pm]
how to read cheque micr l...
by
Packs
[
Today
at 08:58:27 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: String replace or add ' not " (Read 858 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