pole Edit

Witam wszystkich! Mam maly problem zwiazany z wyswietlaniem wyniku.
Napisalem pewna procedure i chce zeby wyswietlany byl czas jej wykonania w polu Edit. I za kazdym razem kiedy ja uruchamiam pojawia mi sie w tym polu zero. A kiedy uzywam funkcji writeln wynik wyswietla sie bezblednnie.
Aha i jeszcze druga sprawa: czy mozna zabezpieczyc pole Edit przed pisaniem w nim z klawiatury, bo chcialbym tak zrobic zeby wyswietlal sie wynik i nic juz nie mozna by bylo wpisac w te pole.
Bardzo prosze o wszelkie podpowiedzi, dziekuje i pozdrawiam

Zapewne masz ten czas jako liczbę (np integer), a do pola Edit można przekazać tylko tekst. Musisz użyć funkcji IntToStr()

Natomiast nie jestem pewien, ale chyba w polu edycyjnym również jest taka właściwość - ReadOnly - zaznacz ją na true (a może nie ma jej tam - na pewno jest w RichEdicie :-P )

Grzecznie i po kolei, masz wszystkon na dole. Na formie umiescilem okienko edycyjne (EdtTeraz) oraz przycisk (BtnTeraz). Po nacisnieciu na przycisk, w okienku edycyjnym wyskakuje aktualna data i czas. Wartosci daty i czasu mozesz dowolnie formatowac ale jako Default pojawia sie twoje ustawienia regionalne. Na koncu zmienilem wlasciwosc ReadOnly na true, zeby okienko bylo "nieaktywne". Powodzenia.

procedure TForm1.BtnTerazClick(Sender: TObject);
var
D:TDateTime;
DStr:String;

T:TDateTime;
TStr:String;

begin
D:=Now;
DStr:= DateToStr(D); //zmiana typu na string
T:=Now;
TStr:=TimeToStr(T); // zmiana typu na string
EdtTeraz.Text:=DStr+' '+TStr; //dwa stringi i odstep pomiedzy nimi
EdtTeraz.ReadOnly:=true; //Ustawienie wlasciwosci na ReadOnly
end;

end.