DELPHI 05 Sortier- und Suchalgorithmen © Herbert Paukert

Herbert Paukert: Programmieren in DELPHI – Grundkurs, Teil 5 116
if Y < X then begin
Mylist[I] := B;
MyList[J] := A;
end;
end;
end;
RichEdit1.Lines.Assign(MyList);
RichEdit1.SelStart := 0;
end;
end;
procedure TForm1.Statistik1Click(Sender: TObject);
// Einfache statistische Datenauswertung
begin
Statis;
RichEdit1.SetFocus;
end;
procedure TForm1.Schriftart1Click(Sender: TObject);
// Schriftart
begin
FontDialog1.Font.Assign(RichEdit1.SelAttributes);
if FontDialog1.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
end;
procedure TForm1.Schriftgre1Click(Sender: TObject);
// Schriftgröße
var S: String;
Y,Err : Integer;
begin
S := InputBox('Schriftgröße (6 - 36)','','14');
Val(S,Y,Err);
if (Err 0) or (Y < 6) or (Y > 36) then Y := 14;
RichEdit1.SelAttributes.Size := Y;
end;
procedure TForm1.Groschrift1Click(Sender: TObject);
// Großschrift
var S : String;
begin
if RichEdit1.SelLength = 0 then Exit;
S := UpperCase(RichEdit1.SelText);
RichEdit1.SelLength := Length(S);
RichEdit1.SelText := S;
end;
procedure TForm1.Kleinschrift1Click(Sender: TObject);
// Kleinschrift
var S : String;
begin
if RichEdit1.SelLength = 0 then Exit;
S := LowerCase(RichEdit1.SelText);
RichEdit1.SelLength := Length(S);
RichEdit1.SelText := S;
end;