Плагин для CommFort (Delphi)

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #341 Andrey » 12.11.2011, 19:21

vlad, не путай обычные массивы и динамические. Динамические начинаются с 0.

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #342 Andrey » 12.11.2011, 19:40

Попробовал более сложный пример с записью в файл и чтением - всё равно всё прошло нормально

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #343 Maximus » 12.11.2011, 19:46

А если с этим файлом?

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #344 Maximus » 12.11.2011, 19:47

Файл не добавляется, сейчас скину в личку.
------------------
Там тоже не добавляется.

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #345 Andrey » 12.11.2011, 19:48

Какое расширение?

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #346 Maximus » 12.11.2011, 19:49

.txt

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #347 Andrey » 12.11.2011, 19:50

Теперь должен добавляться

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #348 Maximus » 12.11.2011, 19:50

Да)

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #349 Andrey » 12.11.2011, 19:51

Сейчас попробую

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #350 Andrey » 12.11.2011, 20:03

Кажется понял, сейчас напишу правильный код.

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #351 Andrey » 12.11.2011, 20:17

Вот код загрузки

Код: Выделить всё

SetLength(MasA, 0);
  AssignFile(myFile,'U:\city_bigbase.txt');
  Reset(myFile);
  while not Eof(myFile) do begin
    ReadLn(myFile, tempString);
    SetLength(MasA, length(MasA)+1);
    MasA[length(MasA)-1]:=tempString;
  end;
  CloseFile(myFile);

Если всё же один пробел в конце останется, то это особенность работы функции writeln (тогда для записи последнего элемента нужно использовать write)

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #352 Maximus » 12.11.2011, 20:26

В конце один пробел как раз нужен для добавления другого слова. А почему это происходило? Какая разница 0 или 1?

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #353 Andrey » 12.11.2011, 20:31

То что было раньше:
Размер массива ещё до чтения из файла устанавливался в 1. В цикле сначала была запись в массив и потом добавление нового элемента. Последний добавленный элемент массива оказывался ненужным, в него ничего не записывалось.
Сейчас:
Сначала указываем что массив пустой и увеличиваем его размер непосредственно перед записью слова. Никаких лишних элементов нет.

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #354 Maximus » 12.11.2011, 20:57

Понял.

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #356 Andrey » 21.12.2011, 17:19

Тоже проголосовал за "Города" и "SMS/E-mail Sender".

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #357 Maximus » 21.12.2011, 17:26

Будем надеяться, что хоть какое-то место займём. :smile:

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #358 Andrey » 21.12.2011, 17:27

Шансы есть, пока результаты хорошие. Подведение итогов в конце декабря?

Maximus M
Автор темы, Супермодератор
Супермодератор
Аватара
Maximus M
Автор темы, Супермодератор
Супермодератор
Репутация: 0
Сообщения: 1507
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт

Re: Плагин для CommFort (Delphi)

Сообщение #359 Maximus » 21.12.2011, 17:51

Да, 30 декабря разработчики выберут лучших среди тех кого выбрали пользователи.

Andrey M
Администратор
Администратор
Аватара
Andrey M
Администратор
Администратор
Репутация: 0
Сообщения: 2345
С нами: 6 лет 7 месяцев
Откуда: Воронеж
ICQ Сайт Skype

Re: Плагин для CommFort (Delphi)

Сообщение #360 Andrey » 20.05.2012, 19:34

Тема перенесена со старого форума


Вернуться в «Delphi/Pascal»

Кто сейчас на форуме (по активности за 5 минут)

Сейчас этот раздел просматривают: 7 гостей