I znów mam problem. Czy można zrobić aby np:"Hello" pisalo sie w 1 lini richedit tak jak na maszynie tzn litera po literce???? Jeśli tak prosiłbym o przykład :) Dzieki.
var
Tekst: string;
begin
Tekst := 'Hello!';
for j := 1 to Length(Tekst) do
begin
RichEdit1.Text := RichEdit1.Text + Tekst[j];
Sleep(100);
end;
To oczywiście najgorsze z możliwych rozwiązań [diabel]
--
Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.
lepiej dac w ontimer zeby zwiekszal zmienna globalna
Inc(j);
if j (mniejsze rowne) length(tekst) then
RichEdit1.Text := RichEdit1.Text + Tekst[j];
chyba tak ;]
--
People=Shit
Chyba nie. W pierwszej metodzie pisze mi od razu caly teks, zas w drugiej nie pisze nic. :(
W procedurze Dryobatesa po Sleep dodaj Application.ProcessMessages;
--
Pozdrawiam {hello} Tomasz K.
A procedura w werw0e mniej wiecej tak:
var
Tekst : string;
begin
Tekst := 'Hello!';
Inc(j);
if j <= length(tekst) then
Memo1.Text := Memo1.Text + Tekst[j];
end;
Nie zapomiij o globalnej j i kombinuj wiecej sam bo tak sie niewiele nauczysz.
--
Pozdrawiam {hello} Tomasz K.