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.
- Rejestracja:prawie 23 lata
- Ostatnio:około 6 lat
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++],
- Rejestracja:około 23 lata
- Ostatnio:ponad 2 lata
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.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.