Ищу реализацию case на FPC со строками по строковой переменной,

var sVar: string = 'green'; ... case sVar ^1of 'red': ^2RedProcedure(); ^1 (4088) Ordinal or string expression expected ^2 (3055) Constant and CASE types do not match ^2 (4007) Ordinal expression expected ^куда указывает курсор ошибки

0

13.11.2023

🥓 Хамон Эврибади

Ruslan aka DUDE
var sVar: string = 'green'; ... case sVar ^1of...

https://stackoverflow.com/questions/14515492/using-case-statement-with-string

0

13.11.2023

Renat Suleymanov

Ruslan aka DUDE
var sVar: string = 'green'; ... case sVar ^1of...

Ну тут явно пишется, что sVar это не строка. Уверен, что строка? Что-то не складывается. Может какой-то синтаксис не тот? Что стоит? {$mode objfpc}{$H+} или что-то другое?

0

13.11.2023

Renat Suleymanov

🥓 Хамон Эврибади
https://stackoverflow.com/questions/14515492/using...

С case должно тоже работать. У него в чем-то другом причина

0

13.11.2023

🥓 Хамон Эврибади

Renat Suleymanov
С case должно тоже работать. У него в чем-то друго...

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

0

13.11.2023

Renat Suleymanov

🥓 Хамон Эврибади
разве? там во втором комментарии описывается почем...

В современных и продвинутых Pascal IDE уже давно работает )

0

13.11.2023

Ruslan aka DUDE Автор вопроса

вы правы, у меня был Delphi mode c {$mode objfpc}{$H+} работает а эта деректива на весь файл или можно обернуть только кейс?

0

13.11.2023

Renat Suleymanov

Ruslan aka DUDE
вы правы, у меня был Delphi mode c {$mode objfpc}{...

😐 честно говоря не задавался таким вопросом. Кажется только на весь файл

0

13.11.2023

Renat Suleymanov

Ruslan aka DUDE
вы правы, у меня был Delphi mode c {$mode objfpc}{...

Если нужен именно дельфи синтаксис (а зачем?), то можно сделать как выше @eddoceddoc предлагал. Через массив и IndexStr

0

13.11.2023

Ruslan aka DUDE Автор вопроса

Renat Suleymanov
Если нужен именно дельфи синтаксис (а зачем?), то ...

я так делал, это лучше чем ничего но надо в ручную прописывать комметарии к индексам а если порядок изменился то полностю переписывать комментарии речь о Case IndexStr(..., ...) of 0: //вася 1: //петя 2: //коля 3: //маша если вдруг между 0 и 1 появляется новая запись то ... переписывай

0

13.11.2023

🥓 Хамон Эврибади

Ruslan aka DUDE
я так делал, это лучше чем ничего но надо в ручную...

if..then..else ...

0

13.11.2023

Alexey Kulakov

Ruslan aka DUDE
вы правы, у меня был Delphi mode c {$mode objfpc}{...

директива на модуль, вроде, работает

0

13.11.2023

Руслан

Ruslan aka DUDE
я так делал, это лучше чем ничего но надо в ручную...

вдруг только дети рождаются :)

0

13.11.2023

Renat Suleymanov

Ruslan aka DUDE
я так делал, это лучше чем ничего но надо в ручную...

А синтаксис дельфи нужен для чего? Просто если даже Lazarus IDE не используешь, то наверное и в Дельфи не нужно? Или какие причины делать недефолтный для FPC синтаксис?

0

13.11.2023

Ruslan aka DUDE Автор вопроса

🥓 Хамон Эврибади
if..then..else ...

знаю, знаю, просто ищу еще варианты) из любопытства

0

13.11.2023

Ruslan aka DUDE Автор вопроса

Renat Suleymanov
А синтаксис дельфи нужен для чего? Просто если даж...

да вроде для того чтобы совместимость была с длл или в этом плане все ок будет?

0

13.11.2023

Renat Suleymanov

Ruslan aka DUDE
знаю, знаю, просто ищу еще варианты) из любопытств...

Case StrIndex('SomeName', ['bobby', 'tommy', 'somename']) of 0: ..code.. ;//bobby 1: ..code..;//tommy 2: ..code..;//somename else ShowMessage('error'); end. Такое решение с массивом точно не подойдет?

0

13.11.2023

Renat Suleymanov

Ruslan aka DUDE
да вроде для того чтобы совместимость была с длл и...

Совместимость с DLL не от синтаксиса зависит ведь. ИЛи я не понял вопроса

0

13.11.2023

Ruslan aka DUDE Автор вопроса

Renat Suleymanov
Case StrIndex('SomeName', ['bobby', 'tommy', 'some...

нет, я так и делал до того как написать в чат массив сильно большой становится

0

13.11.2023