Indsæt på en bestemt linie i memo og kørsel af program.

tilføj shellapi i uses

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Insert(3, 'Denne linie er nr 4...');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

Shellexecute(Handle, 'OPEN', PChar(edit1.Text), nil, nil, SW_SHOW);
end;

Stoney

Memo1.Lines.Insert(Linjetal, 'Eskperten');

Linjetal:
  Linje 1 = 0
  Linje 2 = 1
  Linje 3 = 2
  Linje 4 = 3
  Linje 5 = 4
  etc.

Takker for svaret.

Lige et lille tillægs spørgsmål:

Hvordan får jeg noget til at stå på linie 3 hvis der ikke står noget på linie 1 og 2?

Du kan indsætte nogle blanke linier

Memo1.Lines.Insert(0, '');
Memo1.Lines.Insert(0, '');
Memo1.Lines.Insert(0, '');

Stoney

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button2: TButton;
    EdLinieNo: TEdit;
    edtext: TEdit;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var
  count : integer;
begin
    for count := memo1.Lines.Count to (strToIntDef(EdLinieNo.Text,0) - 1) do
        memo1.Lines.Insert(count, '');

    Memo1.Lines.Delete(strToIntDef(EdLinieNo.Text,0));
    Memo1.Lines.Insert( strToIntDef(EdLinieNo.Text,0) , edtext.Text);

end;

CAD

når ja takker, her er dine points stoney.

sorry cadamsen, så først dit svar da jeg havde givet points til stoney.

Helt iorden

cad