| 1965 |
end; |
end; |
| 1966 |
Delim := '<>'; |
Delim := '<>'; |
| 1967 |
Result.FType := glt2chNew; |
Result.FType := glt2chNew; |
|
{ |
|
|
Result.FName := Trim(RemoveToken(Line, Delim)); |
|
|
Result.FMailTo := Trim(RemoveToken(Line, Delim)); |
|
|
Result.FDateTime := Trim(RemoveToken(Line, Delim)); |
|
|
bufBody := Trim(RemoveToken(Line, Delim)); |
|
|
} |
|
| 1968 |
//Trimしてはいけない気がする byもじゅ |
//Trimしてはいけない気がする byもじゅ |
| 1969 |
Result.FName := RemoveToken(Line, Delim); |
Result.FName := RemoveToken(Line, Delim); |
| 1970 |
Result.FMailTo := RemoveToken(Line, Delim); |
Result.FMailTo := RemoveToken(Line, Delim); |
| 1971 |
Result.FDateTime := RemoveToken(Line, Delim); |
Result.FDateTime := RemoveToken(Line, Delim); |
| 1972 |
Result.FBody := RemoveToken(Line, Delim); |
Result.FBody := RemoveToken(Line, Delim); |
| 1973 |
|
//空だと問題が起きるから、空白を設定する |
| 1974 |
if Result.FBody = '' then begin |
if Result.FBody = '' then begin |
| 1975 |
Result.FBody := ' '; |
Result.FBody := ' '; |
| 1976 |
|
end else if ( Result.FBody[1] = ' ' ) then begin |
| 1977 |
|
//2ちゃんねるとかだと、本文の先頭に1つ半角空白が入っているので削除する |
| 1978 |
|
//他の掲示板で、レス自体の空白かもしれないけどそれは諦める |
| 1979 |
|
Delete(Result.FBody, 1, 1); |
| 1980 |
end; |
end; |
| 1981 |
//Result.FTitle := Trim(RemoveToken(Line, Delim)); |
//Result.FTitle := Trim(RemoveToken(Line, Delim)); |
| 1982 |
Result.FTitle := RemoveToken(Line, Delim); |
Result.FTitle := RemoveToken(Line, Delim); |