[Delphi] RichEdit

0

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.

0

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.

0

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

0

Chyba nie. W pierwszej metodzie pisze mi od razu caly teks, zas w drugiej nie pisze nic. :(

0

W procedurze Dryobatesa po Sleep dodaj Application.ProcessMessages;

--
Pozdrawiam {hello} Tomasz K.

0

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.

1 użytkowników online, w tym zalogowanych: 0, gości: 1