Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Массив из строк, Пмогите создать массив из строк 
:(
    Опции темы
Denwer
Дата 15.12.2007, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет



Не подскажите как через Edit добавлять слова в массив.
И одновременно чтоб эти слова выводились в строку через Label.
Зараннее спасибо.
PM WWW   Вверх
THandle
Дата 15.12.2007, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Код

var 
  str : array of string;

 ...

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(str, length(str) + 1);
  str[length(str) - 1] := Edit1.Text;
  Label1.Caption := Edit1.Text;
end;

По щелчку кнопки Button1 в динамический массив str будет добавлятся строка из Edit1.

PM   Вверх
Denwer
Дата 15.12.2007, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет



А как можно будет очистить этот массив?
PM WWW   Вверх
lukas
Дата 15.12.2007, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15



помоему легче использовать... TStrings, а не динамический массив...

P.S. Очистить массив можно так SetLength(str,0)


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
Denwer
Дата 15.12.2007, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет



Не подскажете как пройтись по словам такого динамического массива
и вывести например самое короткое. Я просто хочу сам смысл понять
имеено через такие динамические массивы из строк.
Спасибо....

Это сообщение отредактировал(а) Denwer - 15.12.2007, 19:03
PM WWW   Вверх
THandle
Дата 15.12.2007, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Вот посмотри - http://delphiprog.ucoz.ru/publ/4-1-0-3. Если немного изменить получится то что надо.
PM   Вверх
Alexeis
Дата 15.12.2007, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Цитата(THandle @  15.12.2007,  19:03 Найти цитируемый пост)
Вот посмотри - http://delphiprog.ucoz.ru/publ/4-1-0-3. Если немного изменить получится то что надо. 


Цитата(http://delphiprog.ucoz.ru/publ/4-1-0-3)

Гостям запрещено просматривать данную страницу, пожалуйста войдите на сайт как пользователь.



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
THandle
Дата 15.12.2007, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Alexeis, даю данную ссылку только потому что Denwer там зарегистрирован.
PM   Вверх
Denwer
Дата 15.12.2007, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет



Я то решил задачу эту через.
Слова через Edit добавлялись в Memo и потом уже бежал 
по строкам в Memo. Но тут то дело с этим массивом...

Ну ладно, буду пробовать, но если что вдруг подскажи...

Это сообщение отредактировал(а) Denwer - 15.12.2007, 19:19
PM WWW   Вверх
THandle
Дата 15.12.2007, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Код

var
  i : integer;
  short : string;
...

for i := 1 to length(str) do
   if length(str[i]) < length(short) then
      short := str[i];


Что то типа этого.

Находит самое короткое слово в массиве.

Это сообщение отредактировал(а) THandle - 15.12.2007, 19:34
PM   Вверх
Denwer
Дата 15.12.2007, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет



Смысл понятен. Буду юзать.
А переменная "len" для чего?
PM WWW   Вверх
THandle
Дата 15.12.2007, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Denwer, это случайно. smile 
PM   Вверх
Alexeis
Дата 15.12.2007, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



THandle, просьба выложить фрагмент целиком с того сайта, все таки это форум и решение должно помогать не только одному человеку. (Нужно отредактировать тот пост, а мусор я подчищу)


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Denwer
Дата 15.12.2007, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет



Alexeis, давай я положу.... Ты сможешь к нормальному виду всё привести?

Это сообщение отредактировал(а) Denwer - 15.12.2007, 20:54
PM WWW   Вверх
THandle
Дата 15.12.2007, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Denwer, если тот код помог, то выкладывай, если нет, то просьба Alexeis'у удалить тот мой пост и весь сопутствующий мусор.

Это сообщение отредактировал(а) THandle - 15.12.2007, 21:09
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0709 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.