Delphi FormatDateTime 예외

Question

CSV 파일의 각 행에 대해 내 응용 프로그램은 각 변수를 읽고 GetDataItem 메서드를 사용하여 테이블에 일부를 쓰는 메서드를 호출해야합니다. 예 :

Var 
Item: String; 
Tmp: String; 
Rdate: String; 
TmpDateTime: TDateTime; 

begin 
Table1.Append' 
Tmp := GetDataItem(Data, Item); {Ignore} 
Tmp := GetDataItem(Data, Item); {Ignore} 
Tmp := GetDataItem(Data, Item); {Members ID} 
Table1.FieldByName('Member ID').AsString := UpperCase(Tmp); 
TmpDateTime := StrToDateTime(etDataItem(Data, Item)); 
Table1.FieldByName('Arrival Date').AsString := FormatDateTime('dd/mm/yyyy',TmpDateTime); 
Table1.FieldByName('Arrival Time').AsString := FormatDateTime('hh:mm:ss',TmpDateTime); 
... 
Table1.Post; 

이것은 yyyymmdd 형식의 DateTime 스탬프에서 ReverseDate를 생성해야하는 경우를 제외하고는 정상적으로 작동합니다. 그러나 timestamp 변수를 다시 사용하려고 시도하면 예외가 발생합니다.

RDate := FormatDateTime('yyyy',TmpDateTime) + FormatDateTime('mm',TmpDateTime) + FormatDateTime('dd',TmpDateTime); 

또는 나는 날짜 시간 변수 복제 대신 그 작업 또는 날짜 시간 문자열을 분할 시도했습니다

RDate := FormatDateTime('yyyymmdd',TmpDateTime); 

만의 더 이상 조작 할 때 예외 실행을 던져 것처럼입니다.

편집 : 때까지 문자를 읽어,

EAccessViolation in the module 'ImpWintacs.exe' at 000749DA. Access violation at address "000749DA" in module 'ImpWintacs.exe'. Read of address 00C1FDF8. 

감사

Answer 1

나는 CSV에서 다음 변수를 읽기 위해 사용 된 방법 : 죄송합니다, 내 XP 머신에 나는 이제 예외가 다음 쉼표. CSV의 마지막 변수 뒤에는 쉼표가 없습니다. 어쨌든 마지막 변수가 필요 없기 때문에 나는 그것을 읽지 않기로했습니다.