Memo zeichen pro zeile

[DeddyH]

Wenn man allerdings lediglich ermitteln möchte, wie oft derselbe String in eine Zeile passt, könnte es so klappen (Fehler vorbehalten):

Delphi-Quellcode:

function GetStringCountPerLine(Memo: TMemo; const aString: string): integer;
var
  tempDC: hDC;
  cv: TCanvas;
  NeededWidth, Margins, XOffset: integer;
begin
  Result := -1;
  if Assigned(Memo) then
    begin
      tempDC := CreateCompatibleDC(0);
      if tempDC <> 0 then
        try
          cv := TCanvas.Create;
          try
            cv.Handle := tempDC;
            cv.Font.Assign(Memo.Font);
            NeededWidth := cv.TextWidth(aString);
            Margins := SendMessage(Memo.Handle, EM_GETMARGINS, 0, 0);
            XOffset := (Margins shr 16) + (Margins and $0000FFFF);
            if NeededWidth <> 0 then
              Result := (Memo.ClientWidth - XOffset) div NeededWidth
            else
              Result := 0;
          finally
            cv.Free;
          end;
        finally
          DeleteDC(tempDC);
        end;
    end;
end;

[Mystery]

Soweit so gut:

Habe Schrift bei der alles gleich groß geschrieben wird. Außerdem Code der genau die Zeile füllt nicht mehr nicht weniger.

Was leider noch fehlt:

ich möchte wenn die zeile 1 gefüllt ist, dass der geschriebene Text, also zeile 1 im memo zu zeile 2 wird, also zeile 1 wieder frei wird.

wenn zeile 1 erneut gefüllt wurde soll zeile 1 zu zwei werden und zwei zu 3 usw. bis irgendwann zeile ca 15 nicht mehr auf den bildschirm passt.

[Bummi]

Delphi-Quellcode:

var
 i:Integer;
begin
  for i := 2 to 10 do
    begin
    memo1.Lines.Insert(0,'');
    Memo1.lines[0] := Format('%d. Zeile',[i]);
    end;
end;

[Mystery]

DANKE *_* werds mal probieren

[himitsu]

Wenn dir eigentlich alles egal ist, dann setze WordWrap auf True und füge deinen Text immer am Anfang ein.
Den rest macht das Memo alleine.

Delphi-Quellcode:

// S = dein neuer hinzuzufügender Text
Memo1.SelStart := 0;
Memo1.SelText := S + ' ';

[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