Umsetzung Memo- in String-Feld

Robert W.B. Linn´s Software, Beispielprojekte und Tipps zu TurboDB, TurboDB VCP, TurboDB Studio, Visual Data Publisher

Alle Einträge Stichworte Alle Tipps und Tricks Download Tipps und Tricks (html, hlp, rtf)

Beschreibung:
Die Memo-Voranzeige unter WinTDB ist nicht so elegant, wie unter DOS-TDB.
Ich habe daher ein zusätzliches Feld aufgebaut, was das Memo-Feld ersetzen soll.
Wenn Memos verwendet werden die kleiner 256 Zeichen sind, dann ist es sinnvoller
diese in einem mehrzeiligem String-Feld zu setzen.
Folgende Routine setzt ein Memo-Feld in ein Stringfeld um.

PROCEDURE BemerkungToNotiz

VARDEF nCount : Real
VARDEF nRNo : Real
VARDEF I : Real
VARDEF sTmpFile : STRING;
VARDEF nHandle : Real;
VARDEF sTmp : String;
VARDEF sNotiz : String;

sTmpFile := "TEMP.TXT";
IF Access(ADRESSEN,"ADR_NR.IND") > 0
   Message("Ich arbeite...");
   ..gehe zum ersten record
   nRNo:=FirstRec(ADRESSEN);
   I:=0;
   WHILE nRNo>0
.. record lesen
ReadRec(ADRESSEN,nRNo);
..If IsFile(sTmpFile) = 1 DelFile(sTmpFile)
.. memo in texfileschreiben
CopyMemo($ADRESSEN.Bemerkung,sTmpFile);
.. textfile in string kopieren
sNotiz := "";
IF nHandle := Reset(sTmpFile) > 0
While not eot(nHandle)
sTmp  := ReadLn(nHandle);
sNotiz := sNotiz + sTmp;
End
Close(nHandle)
                SetField(ADRESSEN,LabelNr(ADRESSEN,"Notiz"), sNotiz);
                WriteRec(ADRESSEN,nRNo);
ELSE
Message(sTmpFile+" kann nicht erzeugt werden","Fehler",1)
END
               .. nächstes record
               nRNo:=NextRec(ADRESSEN);
               I := I + 1;
     END
   END
ENDPROC

Hinweis:
Ab der Version 1.04 gibt es eine Easy-Funktion HTML2STR.