Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Народ, помогите, голова не варит!   Найти похожие ветки 

 
Dimaz-z   (2003-10-25 17:04) [0]

Помогите, к меня тут проблема!

Имеется процедура, которая должна экспортировать Данные из базы данных в текстовый файл.
В ней ест цикл, который находит максимальтные длины значений в каждом поле базы. -

var
Surname, Name, Oth, Tel, Sot, Email: Integer;

...

for i := 1 to Table.RecordCount do
begin
Application.ProcessMessages;

if Surname < Length(Table.FieldByName("Surname").AsString) then
Surname := Length(Table.FieldByName("Surname").AsString);

if Name < Length(Table.FieldByName("Name").AsString) then
Name := Length(Table.FieldByName("Name").AsString);

if Oth < Length(Table.FieldByName("Oth").AsString) then
Oth := Length(Table.FieldByName("Oth").AsString);

if Tel < Length(Table.FieldByName("Tel").AsString) then
Tel := Length(Table.FieldByName("Tel").AsString);

if Sot < Length(Table.FieldByName("Sot").AsString) then
Sot := Length(Table.FieldByName("Sot").AsString);

if Email < Length(Table.FieldByName("Email").AsString) then
Email := Length(Table.FieldByName("Email").AsString);

Table.Next;
end;


Дальше идёт маленький цикл, где создайтся строка заголовка -

for i := 1 to Surname + Name + Oth + Tel + Sot + Email do
SSE := SSE + "-";


В результате, после прохода процедуры выходит огромный файл (20-30 мб), даже если в базе одна крохотная запись!
Помогите, подскажите, где моя ошибка!

Вот полный код процедуры:


procedure Tfrm_main.ToText(FileName: String);
var
I, A: Integer;
Surname, Name, Oth, Tel, Sot, Email: Integer;
EFile: TextFile;
SSurname, SName, SOth, STel, SSot, SSE: String;
begin

AssignFile(EFile, FileName);
Rewrite(EFile);

Table.DisableControls;
Table.First;

ShowTextForm("


 
Dimaz-z   (2003-10-25 17:21) [1]

ЭЙ!



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

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.03 c
1-41258
RoLeX
2003-10-31 17:29
2003.11.13
Как в DateTimePicker сравнить даты???


3-40828
Miwa
2003-10-22 05:45
2003.11.13
С чего начать или Какую СУБД/технологию/литературу посоветуете?


3-41061
Detec
2003-10-26 18:04
2003.11.13
Помогите Проблема DataSource и ELPack 3.11


1-41386
maestro
2003-10-30 09:14
2003.11.13
Многострочная надпись на Panel


1-41178
Crush
2003-11-02 23:54
2003.11.13
Поиск файла на вичестере





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский