Вывод в Memo

[Siluet]

Мужики..да Это Гениально СПАСИБО

[Siluet]

а вот еще!! как сделать что бы при вводе буквы тош ошибку не выводила?

[Siluet]

я ввожу букву..и у меня выходит ошибка

[Terran]

Можете сделать проверку на вводимый символ и если символ является буквой, то его не вводить. К примеру:

Procedure TForm1.Edit1KeyPress(Sender: TObject; Var Key: Char);
Begin
Case Key Of
'A'..'Z': Key:=Chr(0);
'a'..'z': Key:=Chr(0);
'А'..'Я': Key:=Chr(0);
'а'..'я': Key:=Chr(0);
End;
End;

Но с учётом того, что в Edit'e должны быть цифры, то лучше сделать так:

Procedure TForm1.Edit1KeyPress(Sender: TObject; Var Key: Char);
Begin
Case Key Of
'0'..'9': ;
#8: ;
#46: ;
Else
Key:=Chr(0);
End;
End;

[Siluet]

а "#8" и "#46" что означает ?

[Terran]

Сообщение от Siluet

а "#8" и "#46" что означает ?

#8 - Это клавиша Backspace.
#46 - Это точка.

[Siluet]

народД!! ) как мне сделать чтобы при нажатий на кнопку содержимое текстового файла выводилось в Memo. чтонужно вписать ?

procedure TForm1.Button1Click(Sender: TObject);
    var fa:file;{Незнаю можно ли так}
begin
    assign(fa,'text.txt');{здесь выходит ошибка, объясните пожалуйста}
    reset(fa);
end;

[Пепел Феникса]

1)Memo.lines.loadFromFile(<имя файла>);
2)assignfile а не assign

иногда полезно читать что за ошибку выдает(и писать тут)

[Siluet]

спасибо !!