-(*************************************************************************
- * dat\83t\83@\83C\83\8b\82Ì\88ê\83\89\83C\83\93\82ð\95ª\89ð
- *************************************************************************)
-function DivideStrLine(Line: string): TResRec;
-const
- delimiter = '<>';
-var
-// Delim: string;
- pds, pde : PChar;
- pss, pse : PChar;
-begin
- pss := PChar(Line);
- pse := pss + Length(Line);
- pds := PChar(delimiter);
- pde := pds + Length(delimiter);
-
- if AnsiStrPosEx(pss, pse, pds, pde) = nil then begin
- //if AnsiPos('<>', Line) = 0 then begin
- //Delim := ',';
- //Result.FType := glt2chOld;
- Line := CustomStringReplace(Line, '<>', '<>');
- Line := CustomStringReplace(Line, ',', '<>');
- Line := CustomStringReplace(Line, '\81\97\81M', ',');
- end;
- //Delim := '<>';
- Result.FType := glt2chNew;
- //Trim\82µ\82Ä\82Í\82¢\82¯\82È\82¢\8bC\82ª\82·\82é\81@by\82à\82¶\82ã
- Result.FName := RemoveToken(Line, delimiter);
- Result.FMailTo := RemoveToken(Line, delimiter);
- Result.FDateTime := RemoveToken(Line, delimiter);
- Result.FBody := RemoveToken(Line, delimiter);
- //\82Q\82¿\82á\82ñ\82Ë\82é\82Æ\82©\82¾\82Æ\81A\96{\95¶\82Ì\90æ\93ª\82É\82P\82Â\94¼\8ap\8bó\94\92\82ª\93ü\82Á\82Ä\82¢\82é\82Ì\82Å\8dí\8f\9c\82·\82é
- //\91¼\82Ì\8cf\8e¦\94Â\82Å\81A\83\8c\83X\8e©\91Ì\82Ì\8bó\94\92\82©\82à\82µ\82ê\82È\82¢\82¯\82Ç\82»\82ê\82Í\92ú\82ß\82é
- Result.FBody := TrimLeft(Result.FBody);
- //\8bó\82¾\82Æ\96â\91è\82ª\8bN\82«\82é\82©\82ç\81A\8bó\94\92\82ð\90Ý\92è\82·\82é
- if Result.FBody = '' then
- Result.FBody := ' ';
-
- Result.FTitle := RemoveToken(Line, delimiter);
-
-end;