Проблема

[swer]

Написал блокнот, все хорошо работает и функционирует. Трайб в том что когда я допусти ставлю по умолчанию запускать TXT файлы через мой блокнот, memo пустует. А когда я запускаю файл через блокнот все работает. В чем проблема?

[bulldog5293]

Трайб в том что когда я допусти ставлю по умолчанию запускать TXT файлы через мой блокнот, memo пустует

Показывай код польностью

[swer]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    Memo1: TMemo;
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    OpenDialog2: TOpenDialog;
    SavePictureDialog1: TSavePictureDialog;
    SaveDialog10: TSaveDialog;
    Button2: TButton;
    FontDialog1: TFontDialog;

    procedure N4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}






procedure TForm1.N4Click(Sender: TObject);

var
Find:string; // Искомая 
i:integer;
begin
find:=Edit1.Text; 
For i:=0 to Memo1.Lines.Count-1 do 
If Pos(FIND, Memo1.Lines.Text )<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;


procedure TForm1.Button1Click(Sender: TObject);
var 
Find:string; 
i:integer; 
begin
find:=Edit1.Text; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do 
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;



procedure TForm1.N1Click(Sender: TObject);

Begin
If OpenDialog1.Execute Then
Begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
End;


end;

procedure TForm1.N2Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(OpenDialog1.FileName);  
  end;




procedure TForm1.N3Click(Sender: TObject);
begin
 with SaveDialog1, Memo1 do
      if Execute then
      begin
        Lines.SaveToFile(FileName);
        OpenDialog1.FileName := FileName;
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

if FontDialog1.Execute then
with Memo1.Font do
 begin
  size:=FontDialog1.Font.Size;
  color:=FontDialog1.Font.Color;
  style:=FontDialog1.Font.Style;
 end;

[swer]

Это основной кусок

[ZuBy]

а где обработка ParamStr() ParamCount?

[grominfo]

Не вижу, где ты, при старте программы, получаешь путь к файлу из paramstr и открываешь его. Чудес не бывает.

[swer]

Блин, я дебил. Спасибо)