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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> получить из типа TStrings тип int 
:(
    Опции темы
supervladislav
Дата 18.10.2012, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

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



Как мне быть использовал вот эту функцию .
Код

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;


PM MAIL   Вверх
MetalFan
Дата 18.10.2012, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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



supervladislav, а в чем вопрос? берешь и получаешь. только при чем тут TStrings?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Данкинг
Дата 18.10.2012, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



А как можно в принципе осуществить сабж??


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 18.10.2012, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

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



MetalFan
Данкинг, торопился и не дописал.
Тип возвращаемых данных  Strings: TStrings , мне нужно сравнить просто с цифрой из i 
мне необходимо ,как-то приводить данное значение str2 к типу String?
Код

If OpenDialog1.Execute then
  begin
  path:=OpenDialog1.FileName;
  str:=TStringList.Create;
  str.LoadFromFile(path);
  str2:= TStringList.Create;
  for i:=0 to 1 do
  begin
    ExtractStrings([','],[' '],Pchar(str[i]),str2);
    lCmpnt:= Form1.FindComponent('timedelay' + IntToStr(i));
          ShowMessage(str2[3]);
    if Assigned(lCmpnt) and (lCmpnt is Tedit) then
    begin

      if(i=StrToInt(Trim(str2[3]))) then
      begin
      ShowMessage('один');
      lcbtd:= TEdit(lCmpnt);
      lcbtd.Text:=str2[0];
      end;
    
end;



Это сообщение отредактировал(а) supervladislav - 18.10.2012, 15:55
PM MAIL   Вверх
Данкинг
Дата 18.10.2012, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Что сравнить-то: определённую строчку из Tstrings?

Код

if StrToInt(Memo1.Lines.Strings[1])=1 then...



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
northener
Дата 19.10.2012, 01:23 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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



Цитата(supervladislav @  18.10.2012,  15:41 Найти цитируемый пост)
 if(i=StrToInt(Trim(str2[3]))) then

Про TryStrToInt ты уже забыл? Или не смог придумать как её использовать в данной задаче?

А в целом вопросы автора пока весьма "безсвязный поток сознания".
Неужели "специалист" в пхп не может разобраться в паскале?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
supervladislav
Дата 19.10.2012, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

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



northener, издеваешся ,для меня пока это тёмный лес , не престану жаловаться на книги ,материал очень сжато дан.
PM MAIL   Вверх
Данкинг
Дата 19.10.2012, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Цитата(supervladislav @  19.10.2012,  14:45 Найти цитируемый пост)
не престану жаловаться на книги ,материал очень сжато дан

Никогда не поверю, что все существующие книги по Дельфи столь плохие и непонятные.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 19.10.2012, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

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



Данкинг, Они не плохие и не непонятные ,  в каждой изложено по чуть чуть.
PM MAIL   Вверх
kami
Дата 19.10.2012, 22:23 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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



а вы хотели, чтобы в каждой книге изложение шло вида 
Цитата

"вот, я (автор) знаю, что supervladislav сейчас решает задачу получения значения integer из TStrings. Более того, я (автор) знаю, что он под этим подразумевает и зачем ему это нужно. Поэтому покажу и расскажу, как сделать небывалое. Вот конкретный код:"
 ???
PM MAIL WWW   Вверх
northener
Дата 20.10.2012, 00:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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



Цитата(supervladislav @  19.10.2012,  13:45 Найти цитируемый пост)
northener, издеваешся ,для меня пока это тёмный лес

И не думал издеваться. Но вижу как ты топчешься на одном и том же месте на протяжении уже весьма долгого времени задавая свои вопросы.
И сами-то вопросы для постоянных посетителей этого форума кажутся "детскими".  
Поэтому уже в первых двух-трех постах даются правильные ответы на сей вопрос. А дальше уже, как правило, начинается трёп по поводу использования разных "инструментов"/функций, поскольку ты упорно не хочешь ничего говорить о своей "задаче". 
Таким образом ты, не зная паскаля, бродишь в темноте не зная как задать "правильный вопрос", а мы не знаем как "правильно" ответить на твой вопрос, чтобы он помог тебе решить твою "задачу", про которую ты молчишь как партизан!

Цитата(supervladislav @  19.10.2012,  22:07 Найти цитируемый пост)
Данкинг, Они не плохие и не непонятные ,  в каждой изложено по чуть чуть. 

Скорее ты читаешь их "по чуть-чуть".

Это сообщение отредактировал(а) northener - 20.10.2012, 00:59


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
anila00
Дата 20.10.2012, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



в массив a[1]="1"; a[2]="2"; a[3]="tri"; a[4]="text"; ? В перле и php есть и это очень удобно. Также есть функции чтобы собирать массив в одну строку. В Дельфи не нашёл. Подскажите пожалуйста, или может у кого есть текст таких функций ? 
PM MAIL WWW   Вверх
Keeper89
Дата 20.10.2012, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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



Ну так пройдись в цикле и собери в строку, лучше использовать что - то типа StringBuilder. 


--------------------
PM MAIL WWW   Вверх
supervladislav
Дата 20.10.2012, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

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



northener, любую задачу можно рассматривать , как набор дуругих небольших задач это во первых.
Моя текущая задача загружать из файла - текстового файла  в контролы сохранённую информацию текстового типа , 
опять таки ранее сохранённую из контролов.
Файл имеет такую вот архитектуру. 
2123123123,123123,>><<,15
Разделена запятой ,вскоре после парсинга столбцы надо  отправить в контролы.
Тоесть понятное дело ,что каждому столбцу соотведствует свой контрол.
15 - это номер контрола , который я сравнивал бы в цикле для оперделения какому контролу принадлежит данная строка.



 

PM MAIL   Вверх
northener
Дата 21.10.2012, 01:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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



Цитата(supervladislav @  20.10.2012,  15:57 Найти цитируемый пост)
northener, любую задачу можно рассматривать , как набор дуругих небольших задач

Не спорю с тем, что любую сложную сущность можно разделить на составляющие её более мелкие сущности. Но прими во внимание одно. Правильно разобрать сложный агрегат на детали так, чтобы потом можно было бы их проанализировать, что-то изменить или исправить, а потом заново собрать может лишь только специалист и в деталях и в самом агрегате! 
А ты сам говоришь что с паскалем и тем более с дельфи прежде был не знаком и сейчас его не знаешь по причине "якобы" отсутствия хорошей литературы на русском.
Так что 
Цитата(supervladislav @  20.10.2012,  15:57 Найти цитируемый пост)
Моя текущая задача загружать из файла - текстового файла  в контролы сохранённую информацию текстового типа , 
опять таки ранее сохранённую из контролов.
Файл имеет такую вот архитектуру. 
2123123123,123123,>><<,15
Разделена запятой ,вскоре после парсинга столбцы надо  отправить в контролы.
Тоесть понятное дело ,что каждому столбцу соотведствует свой контрол.
15 - это номер контрола , который я сравнивал бы в цикле для оперделения какому контролу принадлежит данная строка.

напоминает задачу Y из известной саги

Поясню почему именно напоминает.
Вот первая ссылка на твою "задачу" 
Вот вторая
Вот третья

Пока мне твоя задача представляется так: 
  Имееется некий файл подобный CSV. В нём содержится некая "числовая" информация. Тебе нужно эту информацию получить и что-то над ней выполнить.  Я прав?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
annable
Дата 21.10.2012, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Пример кода : Простой пример
Код

var
  animals : TStringList;            // Определение нашей переменной списка строк
  i       : Integer;
begin
  // Определение объекта списка строк, и указание нашей переменной на него
  animals := TStringList.Create;

  // Теперь добавляем несколько названия в наш список
  animals.Add('Cat');
  animals.Add('Mouse');
  animals.Add('Giraffe');

  // Теперь показываем этих животных
  for i := 0 to animals.Count-1 do
    ShowMessage(animals[i]);  // animals[i] эквивалентно animals.Strings[i]
end;

Модератор: пользуемся кнопкой "Код" для выделения оного

Это сообщение отредактировал(а) MetalFan - 21.10.2012, 18:38
PM MAIL WWW   Вверх
Данкинг
Дата 21.10.2012, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



annable, если есть .Create, значит, что ещё должно быть?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 22.10.2012, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

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



northener, нужно вписать данные полученные из файла контролам , но если человек заполнил только два контрола скажем 14 и 15 то только ,и их сохранит их в файле то при загрузке они будут 1 и вторым я пытаюсь решить задачу чтобы при загрузке файла если в файле 14 и 15 то строки в файле соттведствовали номеру линии контрола. 
PM MAIL   Вверх
northener
Дата 23.10.2012, 01:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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



Цитата(supervladislav @  22.10.2012,  16:49 Найти цитируемый пост)
northener, нужно вписать данные полученные из файла контролам , но если человек заполнил только два контрола скажем 14 и 15 то только ,и их сохранит их в файле то при загрузке они будут 1 и вторым я пытаюсь решить задачу чтобы при загрузке файла если в файле 14 и 15 то строки в файле соттведствовали номеру линии контрола. 

Это опять вопрос, а не задача! Но уже теплее.

1. Правильно ли я понимаю, что загружаемый файл не ты создаёшь?
2. Количество строк в файле и количество контролов всё-таки ограничено?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


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

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


 




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


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

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