Я бы делал так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // файл
fName: String[80];// имя файла
x:integer;
begin
fName:='test.txt';
AssignFile(f, fName);
Reset(f); // открыть для чтения
read(f,x);
Edit1.Text:=IntToStr(x);
CloseFile(f); // закрыть файл
end.
У тебя получается вводится текст 12345 из test.txt в поле Edit1. В текстовом документе такое:1 2 3 4 5
А что на счёт 54321 так вот:
Код:
S:=Edit1.Text;
N:=length(S);
for i:= 1 to N div 2 do
begin
C:= S[i];
S[i]:= S[N-i+1];
S[N-i+1]:= C;
end;
где в var прописываешь:
S:String;
C:Car;
N:Integer;