Tælle linier

Virker Memo1.Lines.Count ikke?

jojo.. men den viser fortæller hvor mange linier der er.. i ALT
jeg skal bruge et tal ud fra hver linie...

Well ...

Lav en løkke eller noget

for i := 0 to Memo1.Lines.Count-1 do
  begin
    //kode her der sætter linje nr ind ud for hver linje
    // variablen i svarer til hver linje
  end;
end;

Eller noget :-)

hmm.. bruger du dreamweaver?
jeg ønsker sådan en ting ligesom deres linecount :/
sådan at den ikke er direkte inde i memo'en, men at den sidder udenfor den .. lidt for sig selv..
og at den så scroller med ned når man scroller i memoen?

Yeah - jeg kender godt dreamweaver.

Jeg har dog ikke lige en ide til, hvordan du kan lave det lissom i den :-(

æv :o(

Kan du ikke bruge SynEdit

synedit?

Der står linie nummer ud for hver linie.
Det kan downloades her: http://synedit.sourceforge.net/

Ellers er der måske noget her: http://www.eksperten.dk/spm/219094

hvordan får jeg installeret den?
bruger delphi 5?

Kommer der fejl

Jeg har ikke tid til at lave et eks til dig men her et lidt at starte med :

function GetCaretPos (CustomMemo : TCustomMemo): TPoint;
begin
  with CustomMemo do
  begin
    Result.X := LongRec(SendMessage(Handle, EM_GETSEL, 0, 0)).Hi;
    Result.Y := SendMessage(Handle, EM_LINEFROMCHAR, Result.X, 0);
    Result.X := Result.X - SendMessage(Handle, EM_LINEINDEX, -1, 0);
  end;
end;

function TextExtent(const aDC : HDC; const Text: string): TSize;
begin
  Result.cX := 0;
  Result.cY := 0;
  Windows.GetTextExtentPoint32(aDC, pChar(Text), Length(Text), Result);
end;

function TextWidth(const aDC : HDC; const Text: string): Integer;
begin
  Result := TextExtent(aDC, Text).cX;
end;

function TextHeight(const aDC : HDC; const Text: string): Integer;
begin
  Result := TextExtent(aDC, Text).cY;
end;

Function GetLineHeight(const aDC : HDC) : Integer;
begin
  Result := TextHeight(aDc, 'Wg');
end;

Jens B

fatter ærligt talt nix af dit script? :(

Script? Det er ikke et script!

så..fatter nix af de funktioner

Brug SynEdit, det er det bedste.

Jamen.. kan ikke finde ud af at installere det?
er det ikke bare new component?

Nej, det er hvis du vil lave dit eget!

jamen hvordan får jeg den så tilføjet i mit prog?

Gå ind i SynEdit mappen, og vælg Packages, og installer SynEdit_D5.

[Fatal Error] SynEditReg.pas(43): File not found: 'SynEditStrConst.dcu'

Jeg tror bare du skal kopier alt indholdet fra Source mappen ind i dit Delphi 5\Lib

Var det ikke en ide bare at smide en listbox ind ved siden af memo'en hvis du ikke kan få det til at fungere... Ellers kan du jo skrive på Canvas...