Código fuente de autorización de registro de Delphi

Proceso aaa (nombre de archivo: cadena);

Definir variables

str:TStringList;

I, j, len: entero;

s1, s2: cadena

Inicio

str:=TStringList. Crear;

Str. LoadFromFile(nombre de archivo);

Para i:=0 a Str. El conteo comienza en -1

s 1:=lowercase(str.strings[I]);

Len:=Pos(', s 1); //El delimitador es un espacio.

Len:=Pos(#9, s 1); //El delimitador es el carácter de tabulación.

Si Len & gt0 entonces comienza

s2:=copy(s1, Len, length(s 1));

delete(s1, len, length(s 1)); (s 1));

si Pos('index ', s1)>0 entonces s1:= 'Inicio';

Si Pos('menu', s2)>0 estos 2:= 'menú';

Str. cadenas[I]:= s 1+S2;

Fin

Fin

Str. Gratis;

Fin;