Форум: "Начинающим";
Текущий архив: 2006.09.03;
Скачать: [xml.tar.bz2];
Вниззапись нескольких данных в одну строку Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c