Startseite Impressum Newsletter Übersicht Kontakt Suche AGB
Firma
Unternehmensberatung
business web solutions
Service
Presse
Ausbildung

Deutsch English

Suche


tdb-Foren Startseite


Rekord: 121
(21.12.2008, 10:39 Uhr)




 tdbengine.org - Offizielles Forum
 endlich ein Ende der Konvertierungsprobleme 14.04.2014 (16:29 Uhr) H. Götz [tdb gmbh]
 Parameter Korrektur 14.04.2014 (17:08 Uhr) H. Götz [tdb gmbh]
 Konvertierung vomn ganzen Tabellen 14.04.2014 (19:21 Uhr) H. Götz [tdb gmbh]
 Konvertierung eines Datensatzes nach UTF8 30.03.2015 (15:05 Uhr) H. Götz [tdb gmbh]
hier noch als easy Funktion bis H. Kern eine native Funktion bereitstellt.

Hinweis:
bei ReadMemo wird nich tvon oemtoansi konvertiert, nur bei den Stringfeldern

Procedure convertRecordToUTF(db:Integer)
Var l : Integer
Var c : String
l:= 1
Repeat
If Lower(GetStructure(db,l)) hat ",string"
c := AnsiToUTF(OEMToANSI(system.getfield(db,l)))
system.SetField(db,l,c)
End
Until l++>maxLabel(db)
WriteRec(db,RecNr(db))
l:= 1
Repeat
If Lower(GetStructure(db,l)) hat ",memo"
CopyMemo(db,l,"ramtext:m")
AnsiToUTF(OEMToANSI("ramtext:m"))
ReadMemo(db,l,"ramtext:m",1,0)
End
Until l++>maxLabel(db)
EndProc
 Achtung beim Abschneiden eines String 15.04.2014 (10:14 Uhr) H. Götz [tdb gmbh]
0 User im Forum. Kostenloses Forumhosting von plaudern.de / tdb Software Service GmbH. Dieses Forum im eigenen Design entführen. Impressum
Klickpfad zu dieser Seite: www.tdb.de - Service - Diskussionsforum
Powered by eforia
tdb Software Service GmbH - Bahnhofstr. 20 - 91126 Schwabach
Tel: 09122 9310-3 - Fax: 09122 9310-59 - eMail:
tdb@tdb.de