22. März 2007 15:53
13. Juni 2007 16:41
IF BodyFileName <> '' THEN BEGIN
IF FILE.EXISTS(BodyFileName) THEN BEGIN
BodyFile.OPEN(BodyFileName);
LenOldFile := BodyFile.LEN -2;
FCounter := 0;
WHILE FCounter <= LenOldFile DO BEGIN
BodyFile.SEEK(FCounter);
BodyFile.READ(RVal);
FCounter := FCounter +1;
Body := GenMgt.Ansi2Ascii(FORMAT(RVal));
BSTRConverterBody.AppendNextStringPortion(Body);
END;
BodyFile.CLOSE;
END;
END;
14. Juni 2007 10:58
14. Juni 2007 11:21
14. Juni 2007 11:23
14. Juni 2007 12:58