25. September 2007 08:13
SignaturTabelle.Signatur.CREATEOUTSTREAM(return);
variable.WRITE(return); //Variable ist BigText und wird vorher befüllt
SignaturTabelle.INSERT;
25. September 2007 11:08
SignaturTabelle.CALCFIELDS(Signatur)
25. September 2007 11:24
25. September 2007 14:28
25. September 2007 15:15
SignaturTabelle.INIT;
SignaturTabelle.Signatur.CREATEOUTSTREAM(return);
variable.WRITE(return);
SignaturTabelle.PK:='1';
SignaturTabelle.INSERT(SignaturTabelle.PK='1');
SignaturTabelle.Signatur.EXPORT('c:/SignFile.txt.',FALSE);
25. September 2007 15:27
SignaturTabelle.INSERT(SignaturTabelle.PK='1');
SignaturTabelle.INSERT(TRUE);
SignaturTabelle.INSERT;
25. September 2007 15:45
25. September 2007 15:56
25. September 2007 16:00
25. September 2007 16:00
25. September 2007 16:02
25. September 2007 16:15
CR := 13;
LF := 10;
BigTextVar.ADDTEXT(STRSUBSTNO('Zeile 1%1%2',CR,LF));
BigTextVar.ADDTEXT(STRSUBSTNO('Zeile 2%1%2',CR,LF));
BigTextVar.ADDTEXT(STRSUBSTNO('Zeile 3%1%2',CR,LF));
BigTextVar.ADDTEXT(STRSUBSTNO('Zeile 4%1%2',CR,LF));
BLOBTest.INIT;
BLOBTest.Code := '1';
BLOBTest.TextBLOB.CREATEOUTSTREAM(OutstreamVar);
BigTextVar.WRITE(OutstreamVar);
BLOBTest.INSERT;
CLEAR(BLOBTest);
BLOBTest.GET('1');
BLOBTest.CALCFIELDS(TextBLOB);
BLOBTest.TextBLOB.CREATEINSTREAM(InstreamVar);
WHILE NOT InstreamVar.EOS DO BEGIN
InstreamVar.READTEXT(TextVar);
MESSAGE(TextVar);
END;
25. September 2007 16:24