Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2023, 20:16   #1
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
Вопрос Замана Слов

Добра всем!!!
Возникла проблема с заменой русских слов на английские.
Суть такая, например три слова русских и английских занёс в array
Код:
const
 rus: array[1..3] of string = ('Да', 'Нет', 'Всё равно');
 eng: array[1..3] of string = ('True', 'False', 'Anyway');
Вношу русские в комбокс и пользователь выбирает русские
но при сохранении мне нужно в файл сохранить английские
Додуматься не могу(
Заранее благодарен,
С уважением!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 16.04.2023, 20:33   #2
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

Код:
eng[ComboBox1.ItemIndex + 1]
macomics вне форума Ответить с цитированием
Старый 16.04.2023, 21:01   #3
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

macomics Огромное спасибо!
а то я уже целую функцию с загрузкой файла написал))
Код:
function TForm1.get_param(bg,ed:string;rep:string):string;
var i:integer;
begin
i:=pos(bg,rep);
if i<>0 then begin
             i:=i+length(bg)-1;
             delete(rep,1,i);
             get_param:=copy(rep,1,pos(ed,rep)-1);
             end
        else get_param:='';
end;

function TForm1.TranslationTruFals(s: string): string;
var ff:textfile; s1,s2:string;
begin
assignfile(ff,'Replacement.ini');
{$I-}
reset(ff);
{$I+}
if ioresult<>0 then begin
                     exit;
                    end;
repeat
readln(ff,s1);
s2:=copy(s1,1,pos('=',s1)-1);
if s2=ComboBox1.text then
result:= get_param('"','"',s1);
until eof(ff);
closefile(ff);
end;
Не количеством плюсов измеряется репутация человека...!

Последний раз редактировалось Volkogriz; 16.04.2023 в 21:05.
Volkogriz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Устранить имеющуюся в заданном множестве слов повторяющуюся ошибку(неверное сочетание слов) winona Помощь студентам 0 16.03.2021 17:43
Программа в Си: Дана строка-последовательность слов, Есть ли гласная (согласная), входящая в состав всех слов? timpuk Помощь студентам 0 10.01.2014 23:12
посчитать количество всех слов,слов-маркеров и процент слов-маркеров ksenya91 Помощь студентам 9 09.01.2013 07:00
Дана последовательность слов разделенных пробелами, удалить из нее повторные вхождения слов.С++ Bullrock Помощь студентам 4 01.03.2012 13:16
Составить в алфавитном порядке список всех слов, встречающихся в тексте, и количество этих слов. KAPAHDAW Паскаль, Turbo Pascal, PascalABC.NET 2 17.02.2009 01:19