запись нескольких данных в одну строку [D7, Win2k]
mr_Frank © (2006-08-16 14:31:00)
Делаю программу для преобраования из файла 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:00) [1]
IntToStr(dbf1.RecNo) !
бегом книжки читать !
Наверх 
ЧАТ |
Орешник |
|
