Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Wieder eine Frage zu RichEdit! Finden Sie ähnliche Zweige


Man In Red   (2001-12-16 14:31) [0]

Hilfe, pleaaasse!
Kurz gesagt, das Formular lautet: RichEdit1 und RichEdit2 und Timer.
In RichEdit1 gibt es Text, und der Timer wählt jede Sekunde in der Reihenfolge ein Zeichen im Text aus, kopiert es und fügt es in RichEdit2 ein.
Wie das letzte Zeichen in der Zeile hervorgehoben werden kann, hat der Zeitgeber den Wagen automatisch in eine neue Zeile in RichEdit1 übertragen und den Wagen in eine neue Zeile in RichEdite2 gesetzt und erneut ein Zeichen in der Reihenfolge ausgewählt, bis die Zeichen ausgehen.
Vielen Dank im Voraus!



KilkennyCat   (2001-12-17 01:48) [1]

war
Form1: TForm1;
a: longint;

Implementierung

{$ R * .DFM}

Prozedur TForm1.Timer1Timer (Sender: TObject);
war
b: longint;
beginnen
inc (a);
b: = rxrichedit1.SelStart;
rxrichedit1.SelStart: = a;
rxrichedit1.SelLength: = 1;
wenn b = rxrichedit1.SelStart, dann BASTAMANYANA!
end;

Prozedur TForm1.Button1Click (Sender: TObject);
beginnen
rxrichedit1.SelStart: = 0; // setze den Wagen auf den Anfang
rxrichedit1.SetFocus; // den Fokus von der Schaltfläche abziehen
timer1.Enabled: = true // run!
end;

Oder habe ich mal wieder falsch verstanden? dann ist die frage falsch.
Dieser Code hat eine Störung - wählt das Zeilenvorschubzeichen aus. Um zu eliminieren, müssen Sie prüfen, ob das nächste Zeichen kein Zeilenvorschub ist. Wenn ja, dann zweimal inc (a)



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.81 MB
Zeit: 0.03 c
6-22269
SERGX
2001-10-05 16:31
2002.01.08
Bitte geben Sie die Quelle an !!


1-22016
Leviathan
2001-12-13 23:05
2002.01.08
Erscheinungsbild


1-22210
Mann in rot
2001-12-15 20:12
2002.01.08
Wie namut so ............................


6-22288
atmosphärisch
2001-10-09 23:49
2002.01.08
WinGate


1-22257
Dmitry1
2001-12-14 16:53
2002.01.08
Guten Tag





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch