Autonumerico con ficheros

[jocey]

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???

[marcoszorrilla]

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.

[jocey]

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

[marcoszorrilla]

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.

[jocey]

Si , asi es!!!!

[[Delphius]]

Hola jocey,
Para ir al final del archivo:

Código Delphi [-]
Seek(Size(Archivo));

Lo dije de memoria, no recuerdo si es Size o SizeFile. No tengo Delphi a mano.

Saludos,

[[cHackAll]]

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;