[Delphi] Einzelne Buchstaben Fett machen

b00h00 · 7. Mai 2007

Einzelne Buchstaben Fett machen

Wie kann ich in Delphi einzelne Buchstaben eines Strings fett machen?

Die Aufgabe war ein Prog zu schreiben welches Palindrome erkennt das hab ich soweit hinbekommen aber als zusatz sollen noch die falschen Zeichenpaaer fett ausgegeben werden also:
RENTIER (N und I)
Die Prozedur sieht bisjetzt so aus:

PHP:

  procedure TForm1 . Button1Click ( Sender :  TObject );

var  i , : integer ;

      wort :  string ;

      b :array  of boolean ;

  begin

wort := edit1 . text ;

For  i := 1 to length ( wort ) do

  wort [ i ]:= upcase ( wort [ i ]);

 
For  i := 1 to length ( wort )  div 2  do

if  wort [ i ]= wort [ length ( wort )+ 1 - i ]  then b [ i ]:= true  else  b [ i ]:= false ;

Anzeige

Nützliche Suchen

[Delphi] Einzelne Buchstaben Fett machen

Videos zum Themenbereich