Показать сообщение отдельно
  #3  
Старый 11.03.2010, 23:58
Аватар для Biatov
Biatov Biatov вне форума
Прохожий
 
Регистрация: 04.03.2010
Сообщения: 20
Репутация: 9
По умолчанию

Я бы делал так:
Код:
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;
Ответить с цитированием