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]

jung
Form1: TForm1;
a: longint;

Implementierung

{$ R * .DFM}

Prozedur TForm1.Timer1Timer (Sender: TObject);
jung
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.54 MB
Zeit: 0.024 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


14-22400
der Igel
2001-11-11 17:10
2002.01.08
Und warum sind alle träge?


1-22053
Greenrul
2001-12-18 19:29
2002.01.08
ANTIALSING für TTF-Schriftarten.


1-22040
greifen
2001-12-18 18:18
2002.01.08
Ausrichtungstest in TRichEdit





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italienisch Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch 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