Работа с строками в Delphi.

[Lassard]

Всем доброй ночи

Нужна помочь, дали брату задание по программированию, суть задания такова:
Есть исходник на Паскале, но без раздела описи данных (var) но с переменными и присвоенными им значениями, надо восстановить раздел описи и присвоить переменным соответствующие типы данных, тоесть получить рабочий код.

Вижу такое решение:
-поиск в исходном коде - копирование - вставка в конечный код, но что искать?
- и как определить тип данных? по попаданию в диапазон? или каким то другим условием?

Жду Ваших советов

[SERG1980]

для начала исходник можно глянуть

[Lassard]

Дело в том что исходник может быть любой, просто задание так звучит, а программа должна работать с любым исходником на Паскале.

[Serge_Bliznykov]

Вам нужно написать урезаннный лексический анализатор.
читайте литературу/ищите примеры...

[evg_m]

y:=r+5.2;

получаем y: real(double,extended)

s:=cv+'345';

s: string;

[Serge_Bliznykov]

я бы упростил задачу:

Есть исходник на Паскале, но без раздела описи данных (var) но с переменными и присвоенными им значениями

т.е. оставить чистое присвоение переменным КОНСТАНТ (без использования функций и выражений!). например:
y:=12.5;
i:=1;
s:='stroka';
a[i]:=True;

[Lassard]

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

я бы упростил задачу:

т.е. оставить чистое присвоение переменным КОНСТАНТ (без использования функций и выражений!). например:
y:=12.5;
i:=1;
s:='stroka';
a[i]:=True;

Да, но после работы программы, мы должны получить полностью рабочий код паскалевской программы в которой уже будет раздел описи (var), который будет содержать, (беру с Вашего примера)
var y:real;
i:integer; s:string; a:array of boolean;

[Lassard]

вот попробовал решить так:
function MyPos(const FindStr, SourceString: PChar; Num: Integer): PChar;
begin
Result := AnsiStrPos(SourceString, FindStr);
if (Result = nil) then
Exit; //Подстрока не найдена
Inc(Result);
if Num = 1 then
Exit;
if num > 1 then
Result := MyPos(FindStr, Result, num - 1);

end;

begin
FirstSym := PChar(SourceString);

Result := MyPos(PChar(FindStr), PChar(SourceString), Num) - FirstSym;

if Result < 0 then
Result := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
StrF, StrSrc,buf: string;
n,m,i: Integer;

begin
StrF:=':=';
m:=memo1.Lines.Count;
for i:=0 to m do
begin
strsrc:=memo1.Lines.Strings[i];
n := SearchString(StrF, StrSrc,0);
if n >0 then begin
buf:=copy(memo1.Lines.Strings[i],0,n-1);
end;
end;
end;
находим строку :=, а дальше берем копируем переменную, что поместить в var, а как отделить числовое значения переменной? и проверить его тит даных?

проверял вот на етом:


begin
x:=2.23;
y:=2.63;
z:=8.45;
a:=x+y+z;
end;


мож кто то что посоветует?

[evg_m]

как узнать что это комментарий?
как отличить значения от операций?
как отличить строку(символ) от числа?
как отличить целое число от вещественного?