Компонент Memo и работа с *.ini-файлами

[nerZEROn]

Всем привет! Мне нужно сделать программу "Лексический анализатор". Принцип работы такой: программа должна считывать текст (кусочек программы, написанный на другом языке) из поля Memo1 (подгружается из *.txt файла) и по нажатию соответствующей кнопки переводить его в цифровой вид в поле Memo2... То есть я предварительно создаю таблицу лексем и кодов, где каждое "слово" текста у меня пронумеровывается. В соответствии с этим в Memo2 получаются одни цифры.

Вот кусочек кода программы:
Do 100 i=1, N
accept 5, A(i), B(i), C(i).
if (A(i).EQ.0.OR.B(i).EQ.0.OR.C(i).EQ. 0) stop.
P=A(i)+B(i)+C(i)
type 6.P
100 continue

А вот пример таблицы (привожу в пример две строчки куска программы):
Do - 1
100, 1, 5, 6 (константы) - 2
i, N, A(i), B(i), C(i) (переменные) - 3
= - 4
, - 5
accept - 6
. - 7

А это должно получится в Memo2:
1 2 3 4 2 5 3
6 2 5 3 5 3 5 3 7


У меня есть мысль создать *.ini файл с данной таблицей, но не знаю как реализовать перевод из "слов" в цифры... Напишите, пожалуйста, кто знает код для кнопки! Вполне возможно, что есть еще более легкий способ решения.. но, по-моему, с ini программа получится гораздо универсальнее...

[iankov]

Перевод из слов в цифры делается так:
var a:integer;
s:shortstring;
s = "1234";
a:=StrToInt(s);

Или же если дробные числа...
var a:real;
s:shortstring;
s:="33.2525";
a:=StrToFloat(s);

[mihali4]

Раздел:

Общие вопросы Delphi

Простите, мне казалось, что с Дельфи я немножко знаком, но вот это меня повергло в сомнение:

Вот кусочек кода программы:
Do 100 i=1, N
accept 5, A(i), B(i), C(i).
if (A(i).EQ.0.OR.B(i).EQ.0.OR.C(i).EQ.0) stop.
P=A(i)+B(i)+C(i)
type 6.P 
100 continue

О дальнейшем и говорить страшно - сплошная непонятица...
Это что - действительно паскаль Дельфи??? Неужели я так безнадежно отстал?
Или раздел для темы - "Общие вопросы Delphi" не совсем удачно выбран?

[iankov]

Это фортран =)

[Serge_Bliznykov]

Сообщение от mihali4

Это что - действительно паскаль Дельфи??? Неужели я так безнадежно отстал?

коллега, спокойно! Главное - без паники!

на Дельфи нужно написать программу лексического анализатора -
а вот анализировать в данном случае нужно программу на другом языке (на Fortran)...

[nerZEROn]

Вообще верно, это Фортран =) А кто-нибудь знает, как с .ini файла считывать нечто вроде вот этого:

Do=1
100=2
1=2
5=2
6=2

и при этом чтобы автоматом писалось в Memo2 код лексемы? И еще я не понимаю вот чего: Memo, это не EditBox с одной строкой, в Memo их много... как можно задать программе, какую именно считывать строку?

[Шульц]

Memo1.Lines.Strings[i]

Вместо I вставь номер нужной

[Шульц]

Что бы считывать используй следуеще

var
f:TIniFile;
Begin
*********
Memo1.text:=f.ReadString('Do','1','');
********
end;

И там уже модернизируй как хошь.

[nerZEROn]

Так вы мне с *.ini то поможете? Довольно часто встречается этот файл, содержащий, к примеру, настройки самой программы. Вот по какому принципу идет с них считываение?

Там ведь что-то типа (пример "от балды" ):
[Settings]
Height=768
VideoType=1
...

Вот вроде бы все легко.. а нуба возникают проблемы

[nerZEROn]

Пасиба =) а можно ли сделать так? По нажатию кнопки, запускающий процесс анализа, из .ini файла будет в буфер считываться все значения, затем тут же идет сам процесс анализа, и в Memo2 записываются значения, но уже в цифровом виде.