Autonumerico con ficheros
 

Hola a toda la familia del club, amigos, estoy haciendo un trabajo que utiliza ficheros (Los ficheros son txt), y necesito que al hacer click en un boton un edit coja un valor numerico y si le vuelvo a dar click al mismo boton este valor numerico se incremente en uno, luego si cierro la aplicacion y vuelvo a accionar el boton me asigne el consecutivo de donde se quedo..... me explico???

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text) + 1);
end;

Queda por ver, de donde cargas el valor inicial, se supone que lo guardas en un fichero texto.

Un Saludo.

Autonumerico Por Jocey
 

Eso es lo que quisiera ver como voy al final del fichero, leo el ultimo valor y lo muestro en el edit

Por ahí teníamos que haber empezado, quieres decir que en un fichero de tipo texto vas introduciendo números, supongo que separados unos de otros por retorno de carro y alimentación de línea?

Así:?
1
2
3
4


Un Saludo.

Autonumerico Por Jocey
 

Si , asi es!!!!

Hola jocey,
Para ir al final del archivo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); // Creando archivos con nombre secuencial...
var Count: Cardinal;
begin
 Count := 0;
 while GetFileAttributes(PChar(IntToStr(Count)+'.txt')) <> INVALID_HANDLE_VALUE do
  Inc(Count);
// IntToStr(Count)+'.txt';
end;

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); // 'Append' con valores numéricos secuenciales en un archivo de texto.
var Archivo: TextFile; Line: string;
begin
 AssignFile(Archivo, 'texto.txt');
 Reset(Archivo);
 while not EOF(Archivo) do ReadLn(Archivo, Line);
 WriteLn(Archivo, IntToStr(StrToInt(Line) + 1));
 CloseFile(Archivo);
end;