for schliefe baut komische zeichen ein

[inherited]

Dann mal halt auf das Canvas des Labels oder nimm eine PaintBox und Mal auf ein Offscreen-Bitmap.

[ghost007]

hm, das problem ist, das des dann auf ein canvas soll, welches ich an mein LCD display sende. wie kann ich das dann darauf übertragen?

[Klaus01]

Hallo Christian,

vielleicht kannst Du ja damit ewtas anfangen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
  s:String;
  leerstring:String;
begin
  leerString:='';
  for i:=1 to 2*length(edit1.text) do
    leerString:=leerString+' ';

  s:=leerString;
  i:=0;
  while not checkbox1.checked do
    begin
      inc(i);
      if i=length(leerString) then
        begin
          i:=1;
          s:=leerString;
        end;

      // Buchstaben eine Stelle vorrücken
      for j:=1 to length(edit1.Text) do
        s[j]:=s[j+1];
      // einen Buchstaben hinzufügen
      s[length(edit1.Text)]:=edit1.Text[i];
      label1.Caption:=s;
      application.processMessages;
      sleep(100);
    end;

end;

Grüße
Klaus

[ghost007]

hi,
kann es sein, das deine funktion meine anwendung "einfriert" oder sie zumindest sehr langsam macht?

[Klaus01]

Dan baue doch anstelle von Sleep das delay ein.

Grüße
Klaus