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
 
 
