Memo zeichen pro zeile

[Furtbichler]

Ausprobieren:

Delphi-Quellcode:

Function WieOftEinStringInEinMemoPasst (memo : TMemo; einString : String) : Integer;
Var
  text : String;

begin
  memo.WordWrap := true;
  memo.Lines.BeginUpdate;
  text := '';
  Try
    repeat
      inc(Result);
      text := text + einString;
      memo.Lines.Text := text;
    until memo.Lines.Count = 2;
    Dec (Result);
  finally
    memo.Lines.EndUpdate;
  end
end;

Andere Lösungen vertun sich manchmal um 1.

Übrigens würde ich statt dem GetDC Gedöns ein TControlCanvas nehmen. Ist einfacher.

[Mystery]

Das klappt alles ganz gut :-)

Letzte Frage, dann bin ich fertig:
//anders gesagt das Programm ist fertig, will nur ein etwas anderes schreiben jetzt

Habe wieder ein canvas
dann 2 integer variablen a und b

a:=random(screen.width);
b:=random(screen.height);


Außerdem eine procedure
in meiner procedure zeichen(canv:Tcanvas ; farbe:Tcolor);
begin
with canv do begin
moveto(a,b);
//und hier soll er dann an der stelle (a,b) eine "1" schreiben..
kann man mit einem canvas zahlen wie 1 oder null an bestimmte stekllen auf das formular schreiben?
wenn ja wie sieht der befehl aus?

[DeddyH]

TCanvas.TextOut