[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 475 из 677

475

Опции темы

Поиск в этой теме

Опции просмотра

#4741

28.10.2009, 22:00

Nick_Rimer

Новичок

Регистрация: 12.05.2008

Сообщений: 19

С нами: 9472418

Репутация: 2

А вот теперь мы возвращаемся к тому, с чего я начал!!!
Нельзя организовать оператор case перебором по string.
Он ругается, что ему нужен ordinal type.
Char бы подошел.. но я в тупике, и не могу понять, что делать, думать что-то вместо case или преобразовывать string во что-то другое, "более числовое"

------------------------

Все, вопрос снят, проблема решена!

str: string; с: char; i: byte - переменная цикла for;
c:=str[i];
ABC(c);

все работает

Последний раз редактировалось Nick_Rimer; 28.10.2009 в 22:51..

#4742

29.10.2009, 18:11

[Abbath]

Познающий

Регистрация: 01.10.2009

Сообщений: 97

С нами: 8742253

Репутация: 26

Значит такой вопросик :
есть Тмемо в который водят в столбик цифры от 4 до 9 знаков
внизу есть еще 6 Тмемо
Нужно чтоб эти цифры(которые в столбик)
сортировались в те 6 Тмемо
по такому принцыпу:
в 1Тмемо цифры из 4х знаков
в 2Тмемо цифры из 5 и тд до 9
вродебы реализовал а почемуто несортирует он их(

прошу помочь с реализацией в Делфи7

#4743

29.10.2009, 18:23

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

Код:

var
 x : integer;
begin
 for x := 0 to memo1.Lines.Count-1 do
 begin
  case length(memo1.Lines.Strings[x]) of
    4:memo2.lines.add(memo1.Lines.Strings[x]);
    5:memo3.lines.add(memo1.Lines.Strings[x]);
    6:memo4.lines.add(memo1.Lines.Strings[x]);
    7:memo5.lines.add(memo1.Lines.Strings[x]);
    8:memo6.lines.add(memo1.Lines.Strings[x]);
    9:memo7.lines.add(memo1.Lines.Strings[x]);
  end;
 end;
end;

#4744

29.10.2009, 18:29

[Abbath]

Познающий

Регистрация: 01.10.2009

Сообщений: 97

С нами: 8742253

Репутация: 26

а где критерии что если длина 4 символа то в 4мемо и тд?

#4745

29.10.2009, 18:34

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

С нами: 10097606

Репутация: 3349

>>>>>>>> 4:memo2.lines.add(memo1.Lines.Strings[x]); <<<<<<<<<<<,
мемо1 - там данные.
мемо2 - для 4
мемо3- для 5 итд

#4746

29.10.2009, 18:37

[Abbath]

Познающий

Регистрация: 01.10.2009

Сообщений: 97

С нами: 8742253

Репутация: 26

блин спс огромное ща попробую=)

#4747

29.10.2009, 19:33

Adekvatnyj

Участник форума

Регистрация: 28.10.2009

Сообщений: 129

С нами: 8703313

Репутация: 67

Какая стратегия изучения Дельфи? Сначала выучить турбо паскаль 7.0 потом дельфи?
Или может сначала бейсик а потом дельфи, или бейсик - тпаскаль - дельфи?

#4748

29.10.2009, 19:46

intNet

Познающий

Регистрация: 31.05.2009

Сообщений: 68

С нами: 8919750

Репутация: 19

Цитата:

Сначала выучить турбо паскаль 7.0 потом дельфи

Ага.

#4749

29.10.2009, 20:05

[Abbath]

Познающий

Регистрация: 01.10.2009

Сообщений: 97

С нами: 8742253

Репутация: 26

плин опять столкнулся с почти такого же рода проблемой нос разу задам пару вопросов чтоб не мучать несколько раз
1) есть строка из цифр затем знак ; и после него вместе с ним надо удолить все из строки
опять же во всех строках Тмемо
2)Есть Столбец цифр нужно расположить их в те же 6 мемо по кол-ву повторяемых цифр тоест
например 72377728738 вот тут повторение цифры 7 допустим 5 раз надо значит вывести в мемо5
66628266986666 тут больше 6к 9 штук в Мемо9 и вот так чтоб он с каждым номером в столбце начиная от повторения там 4х цифр так как длина числа максимум будет 9 символов

#4750

29.10.2009, 20:27

Adekvatnyj

Участник форума

Регистрация: 28.10.2009

Сообщений: 129

С нами: 8703313

Репутация: 67

А delphi в webe это совсем отдельная штука от простого дельфи?

Страница 475 из 677

475

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2570	09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход