|  | 
 
 | 
| 
			 
			#1  
			
			
			
			
		 | |||
| 
 | |||
|  преобразование как преобразовать *.dbf в *.csv | 
| 
			 
			#2  
			
			
			
			
		 | ||||
| 
 | ||||
|   Зависит от постановки задачи. Если операция разовая, то можно через ексель. Если на постоянке, то открываете DBF-файл и пересохраняете в текстовый файл с расширением csv.  - Все значения полей разделяются символом ";" - Новая запись начинается с новой строки Вот и все собственно. | 
| 
			 
			#3  
			
			
			
			
		 | ||||
| 
 | ||||
|   примерно так: Код: var F:TextFile; i:integer; Str:string; begin AssignFile(F,CSVFile.csv); Reset(F); Table1.Open; Table1.First; while not Table1.Eof do begin s:=''; for i:=0 to Table1.RecordCount do s:=s+Table1.Fields[i].asString+';'; Writeln(F,s); Flush(F); Table1.Next; end; CloseFile(F); Table1.Close; end; Последний раз редактировалось Yurk@, 08.09.2009 в 20:30. |