Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.03;
Скачать: CL | DM;

Вниз

запись нескольких данных в одну строку   Найти похожие ветки 

 
mr_Frank ©   (2006-08-16 14:31) [0]

Делаю программу для преобраования из файла DBF в обычный txt. Решил вставить данные сначало в Memo потом сохранить(чтобы пользователь смог увидить что там преобразовалось) вот тока какаято фара получилась:
procedure TForm1.Button1Click(Sender: TObject);
var
fm:string; //Фамилия
im:string; // Имя
otch:string; // Отчество
summ:string; // Сумма
schet:string; // Счет
i:integer;
begin
 for i := 1 to dbf1.RecordCount do
   begin
     fm := dbf1.GetFieldData(2);
     im := dbf1.GetFieldData(3);
     otch := dbf1.GetFieldData(4);
     summ := dbf1.GetFieldData(5);
     schet := dbf1.GetFieldData(1);
     Memo1.Lines.Add(dbf1.RecNo + "," + schet + "," + summ + "," + fm + " " + im + " " + otch);
     dbf1.Next;
   end;
end;


выделяет второй + в строке Memo1.Lines... и пишет incompatible types


 
Сергей М. ©   (2006-08-16 14:33) [1]

IntToStr(dbf1.RecNo) !

бегом книжки читать !



Страницы: 1 вся ветка

Текущий архив: 2006.09.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.057 c
2-1155477729
AlexanderMS
2006-08-13 18:02
2006.09.03
Изменение стандартных диалогов.


1-1153521032
Батя
2006-07-22 02:30
2006.09.03
WebBrowser


1-1153381090
oleggar
2006-07-20 11:38
2006.09.03
распознавание текста


3-1150968481
PEAKTOP
2006-06-22 13:28
2006.09.03
Формат BLOB при экспорте в XML


15-1155042469
ocean
2006-08-08 17:07
2006.09.03
Отмена Scandisk при загрузке XP