Tengo este código:
Código Delphi
[-]
procedure TForm2.Button1Click(Sender: TObject);
var
F: TextFile;
sLinea: String;
button : TButton;
begin
AssignFile( F, ExtractFilePath( Application.ExeName ) + 'program.txt' );
Reset( F );
while not Eof( F ) do
begin
ReadLn( F, sLinea );
if sLinea='ButtonCtrl' then
button := TButton.Create(self);
ReadLn( F, sLinea);
if sLinea='1' then
button.Left:=sLinea;
ReadLn( F, sLinea);
if sLinea=[1..400] then
button.Top:=sLinea;
end;
CloseFile( F );
end;
end.
Que me lee un archivo que es así:
Código:
ButtonCtrl
40
25
ButtonCtrl
90
47
Ahora, me gustaría que el programa lea el archivo de texto y cada vez que vea
ButtonCtrl cree un botón con los parámetros que siguen que son dos integer (X e Y) y lo ponga en el Form. Como si yo pongo 30 líneas con ButtonCtrl con dichas variables me los ponga (infinito) y que si solo pongo ButtonCtrl y no pongo las dos variables a continuación no lo cree o de un mensaje de error.
Parece fácil pero me lié y no lo he continuado.
Si además pueden, se podría hacer que el programa reconociera el archivo de texto así:
Código:
ButtonCtrl{
POS=40,20
CAP=Ejemplo
}
ButtonCtrl{
POS=67,90
CAP=Unbotóncualquiera
}
Por lo menos decir que hago mal. Muchas gracias y no, no es proyecto de clase, es un proyecto que llevo intentando hacer desde hace tiempo. Y no quiero usar Archivos INIs aunque faciliten mucho esta tarea.
