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
FLIF and FUIF Formats (Fr...
by
Boleeman
[
Today
at 04:12:43 am]
Pathfinding (A*)
by
Guser979
[
Today
at 03:37:20 am]
Unselect all rows in stri...
by
Jonny
[
Today
at 02:16:49 am]
Magic Cropper (correct pe...
by
Boleeman
[
Today
at 01:41:08 am]
Lazarus editor feature re...
by
Tony Stone
[
Today
at 01:31:57 am]
Tesseract for ocr
by
Boleeman
[
Today
at 01:05:28 am]
Treeview: full-width back...
by
d7_2_laz
[
Today
at 12:41:34 am]
BUG in InputQuery if defa...
by
dsiders
[
Today
at 12:38:49 am]
Custom self drawn compone...
by
Artur W.
[
Today
at 12:36:58 am]
NTSC/CRT port for Free Pa...
by
hukka
[
Today
at 12:35:52 am]
Where is Spready?
by
Curt Carpenter
[February 07, 2025, 11:57:51 pm]
N-Bit Dotted Line Pattern...
by
Boleeman
[February 07, 2025, 11:53:47 pm]
my programs crash
by
turunk
[February 07, 2025, 11:22:37 pm]
Oberon Pi, a port of Ober...
by
McDoob
[February 07, 2025, 11:21:36 pm]
fpc trunk:I can't build i...
by
wcage03
[February 07, 2025, 10:26:40 pm]
Transparent animation
by
majolika
[February 07, 2025, 09:29:03 pm]
LAMW manager out of date?
by
jmpessoa
[February 07, 2025, 09:25:57 pm]
ZBarcodeView
by
jmpessoa
[February 07, 2025, 09:19:24 pm]
Compile App Error
by
jmpessoa
[February 07, 2025, 09:15:32 pm]
Error on LAMW application...
by
jmpessoa
[February 07, 2025, 09:13:08 pm]
align a panel alClient in...
by
Martin_fr
[February 07, 2025, 09:13:04 pm]
Fpcupdeluxe
by
petex
[February 07, 2025, 09:12:02 pm]
using RunCommand to wrap ...
by
MarkMLl
[February 07, 2025, 09:10:09 pm]
Usage of Lazlogger 2 - st...
by
PeterX
[February 07, 2025, 07:59:13 pm]
read keys from windows ko...
by
TRon
[February 07, 2025, 06:27:02 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: String replace or add ' not " (Read 860 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