Открыть EXE

[Romms]

Извиняюсь... не сказал самое главное! Когда я открываю екзешник Делфи Выбивает ошибку!

Может это из-за того что у меня Делфи 3.0?

Естественно не работает, точнее цикл проходит 1 раз
У Вас закомментирована строчка, в которой заносится значение в NumWritten. Поэтому в ней как хранился мусор, так и хранится и условие (NumWritten <> NumRead) выполняется

Я был бы очень рад если б этот один раз был...

[DeKot]

Да что я тупой? Что ли:

Да мне надо в этом "тексте" найти подстроку

Объясняю в # 15 как это выглядит и

Т.е. все что я написал в посте #15 Вам не надо?

конечно...

Конечно нет или конечно да?
Все, ничего не пойму - что хочет ТС?

[Пепел Феникса]

var OD:TOpenDialog;  //Диалог открытия файла(переменка)
    F:TFileStream;   //файловый поток для чтения
    B:array[1..1024] of char;  //буфер
    N:integer;                //кол-во прочитаннх байт за один присест
begin
 Memo1.Text:='';            //очищаем мемо
 OD:=TOpenDialog.Create(Form1);   //создаем диалог
 if OD.Execute then begin      //показываем диалог, если выбрали файл...
                     F:=TFileStream.Create(OD.FileName,fmOpenRead); //...то,открываем файл
                     while F.Position<>F.Size do          //пока есть что читать то читаем..
                      begin
                       N:=F.Read(B[1],1024);    //пробуем прочесть весь буфер
                       Memo1.Text:=Memo1.Text+Copy(B,1,N); //копируем то сколько прочли
                      end;
                     F.Free; //закрываем файл.
                    end
                else Close; //...иначе выходим
 OD.Free;  //уничтожжаем диалог.
end;

все отменно пашет.

[Romms]

Сообщение от DeKot

Да что я тупой? Что ли:

Объясняю в # 15 как это выглядит и

Конечно нет или конечно да?
Все, ничего не пойму - что хочет ТС?

Как я знаю конечно обозначает - "твердое" ДА!
Тоесть на вопрос "Т.е. все что я написал в посте #15 Вам не надо? " я ответил "Конечно(ДА)" тоесть "Т.е. все что ВЫ написал в посте #15 МНЕ не надо! "

[Romms]

Сообщение от Пепел Феникса

var OD:TOpenDialog;  //Диалог открытия файла(переменка)
    F:TFileStream;   //файловый поток для чтения
    B:array[1..1024] of char;  //буфер
    N:integer;                //кол-во прочитаннх байт за один присест
begin
 Memo1.Text:='';            //очищаем мемо
 OD:=TOpenDialog.Create(Form1);   //создаем диалог
 if OD.Execute then begin      //показываем диалог, если выбрали файл...
                     F:=TFileStream.Create(OD.FileName,fmOpenRead); //...то,открываем файл
                     while F.Position<>F.Size do          //пока есть что читать то читаем..
                      begin
                       N:=F.Read(B[1],1024);    //пробуем прочесть весь буфер
                       Memo1.Text:=Memo1.Text+Copy(B,1,N); //копируем то сколько прочли
                      end;
                     F.Free; //закрываем файл.
                    end
                else Close; //...иначе выходим
 OD.Free;  //уничтожжаем диалог.
end;

все отменно пашет.

Жаль но у меня не получилось... Можете ли Вы сбросить этот проект? Чтобы я мог скомпилировать его на своей машине.
Возможно это либо Мой делфи глючит, либо Вы не екзешник открывали(Что моло вероятно)...

[Пепел Феникса]

var OD:TOpenDialog;  //Диалог открытия файла(переменка)
    F:File;   //файл для чтения
    B:array[1..1024] of char;  //буфер
    N:integer;                //кол-во прочитаннх байт за один присест
begin
 Memo1.Text:='';            //очищаем мемо
 OD:=TOpenDialog.Create(Form1);   //создаем диалог
 if OD.Execute then begin      //показываем диалог, если выбрали файл...
                     assignfile(f,OD.FileName); //...то,открываем файл
                     reset(f,1);
                     while not EoF(F) do          //пока есть что читать то читаем..
                      begin
                       BlockRead(F,b[1],1024,N);   //пробуем прочесть весь буфер
                       Memo1.Text:=Memo1.Text+Copy(B,1,N); //копируем то сколько прочли
                      end;
                     CloseFile(F); //закрываем файл.
                    end
                else Close; //...иначе выходим
 OD.Free;  //уничтожжаем диалог.
end;

вот еще вариант.

либо Вы не екзешник открывали(Что моло вероятно)...

скобки правы.
данные коды(их уже два) открывают любой файл.

я прописывал их как событие OnCreate формы(собственно тока заголовка и не хватает)

[Romms]

Проверял я собствену и Вашу программы на свом екзешнику(выдаёт ошибку)... Иные екзешникы Ваша и моя программы открывают...

Этот екзешник даже на форум нельзя загрузить, пишет: Project1.exe:
Некорректный файл
НО Блокнот ОТКРЫВАЕТ!
Вот здесь можно скать этот файл... Скачивать уже нельзя
если чо пароль: gfhjkm

[Alex Cones]

HINT:
Для загрузки exe на форум либо добавляем ему "левое" разрешение (project.exe.txt)
либо архивируем в zip или rar

[Romms]

Извинюсь... не досмотрев

Но от этого этот файл не начал открываться

[Пепел Феникса]

вы пытаете открыть запущенный exe?