Считывание данных из memo только в Шестнадцатеричном формате , ошибка ,если данные в memo не соответствуют hex (Pascal) Дельфи7

[BDA]

Может быть у вас в названии файла нет нижних подчеркиваний вокруг SER? Тогда уберите их из подстроки, поиск которой осуществляется: if Pos('SER', fn) > 0 then.

[sergey.serg-72]

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

Может быть у вас в названии файла нет нижних подчеркиваний вокруг SER? Тогда уберите их из подстроки, поиск которой осуществляется: if Pos('SER', fn) > 0 then.

Да есть, и так пробовал и так, вообще не реагирует.
Я сделал загружаем файл кнопкой и он должен был проверить имя, а он игнорит.
И так и так пробовал, код выше. Не пойму, почему нет реакции.

[BDA]

SER написано в названии файла в верхнем регистре?

[sergey.serg-72]

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

SER написано в названии файла в верхнем регистре?

Да, написано и убирал и всё ровно не проходит.
BDA вы спец по дельфи, что то с дельфи случилось, пишу Helooword компилируется всё ок! в архив загоняю, на 10 винде не даёт скачивать типа вирус и архив не скачивает, естественно весь комп прогнал и нодом и утилитой Доктор веб, нет вирусов не на компе, не тем более в привет мир.
Пробовал на других машинах,7,8,ХР без проблем. А вот на 10 ках и на 11 какая то беда при чём одни нормально , ругнутся и скачивают и разархивируют, а другие не в какую....
Кто то говорит что это из за компилятора на Дельфи7, кто то говорит что это беда 10 и11 винды, не понятки? стал обновил Дельфи7 до последней , теперь в папке с проектами не создаётся exe, просто проект1 и без расширения, раньше такого не было. Второй момент, ярлык на рабочем столе, искажённый, что только не делал и переставлял раз 5, и откат системы не помогает...
Вот засада какая та ... Винда7 стоит. Уже не знаю что делать, код доработал и всё с обновлением в трам, тарары полетело, не могу отладить ни как....

[DeepFlake]

Для учебных программ Lazarus сойдёт.

[sergey.serg-72]

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

Может быть у вас в названии файла нет нижних подчеркиваний вокруг SER? Тогда уберите их из подстроки, поиск которой осуществляется: if Pos('SER', fn) > 0 then.

Всё гуд!, это заработало, но дальше, запись уходит в ошибку не нравится ей Only

ExtractFileNameOnly

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

Для учебных программ Lazarus сойдёт.

да вроде к Дельфи привык, эта проблема только на 10 и 11 винде происходит.
Чувствую, когда 12,13 выйдет вообще всё что с Майкрасофт не связано, не будет работать.

[BDA]

У меня антивирусу тоже время от времени не нравится какой-нибудь свежесобранный дельфи exe-шник. Если в исходном коде ничего криминального не было, то отключаю антивирус на время проверки такой программы.

Сообщение от sergey.serg-72

запись уходит в ошибку не нравится ей Only

В чем выражается ошибка?

[sergey.serg-72]

Ошибка не компилируется и переходит на строку где обрабатывается hex.
Второй момент, а если Serg, будет -serg_, или просто Serg, то код не сработает, а можно чтоб цикл только слово Serg в имени файла проверял и если он есть то предупреждает и не важно , через тире, или как ещё оно будет идти в имени файла.

Да в том то и дело на ' heloo word ', форма и кнопка, далее в архив и защитник виндус его как вирус. Но это в корне неправильно. Длктор веб не реагирует, а защитник так себя ведёт, причём на 10 и 11 винде. Проблема явно в них. А на других системах всё отлично. Думаю что это так навязчиво предлагают обновить Дельфи.... Думаю в 12 винде вообще отрубят возможность работать на старых софтах.

[BDA]

Сообщение от sergey.serg-72

Ошибка не компилируется и переходит на строку где обрабатывается hex.

А какой текст ошибки? Она пишется под кодом в окошке build.

Сообщение от sergey.serg-72

чтоб цикл только слово Serg в имени файла проверял

Так?

if Pos('Serg', fn) > 0 then

[sergey.serg-72]

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

У меня антивирусу тоже время от времени не нравится какой-нибудь свежесобранный дельфи exe-шник. Если в исходном коде ничего криминального не было, то отключаю антивирус на время проверки такой программы.

В чем выражается ошибка?

Теперь ошибка ушла

var
FS: TFileStream;
buf,fn:  string;
begin
if opendialog1.Execute then
begin
fn := ExtractFileNameOnly(OpenDialog1.FileName);
if Pos('SER', fn) > 0 then
  showmessage('Â èìåíè ôàéëà åñòü ñëîâî SER, áóäüòå âíèìàòåëüíû ýòî íå Hex!');
Memo1.Text := fn;
if IsHexStr(fn) then
 Memo2.Text := fn
 else
 Memo1.Text := StrToHex(fn);
 end;
 begin
buf := Memo1.Text;
if not IsHexStr(buf) then
begin
MessageBox(handle, PChar('Íå HEX-ñòðîêà'), PChar('Îøèáêà'), MB_ICONERROR);
exit;
end;
FS := TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite ,fmShareDenyWrite);
Label4.Caption:='Size : '+ IntToStr(FS.Size)+' ' + ' ' +'byte';
Memo1.Text:=ExtractFileName(OpenDialog1.FileName);
buf:= HexToStr(buf);
SetLength(buf,  length(buf));
FS.Position :=Strtoint('$' + edit1.Text) ;
FS.Write(Buf[1], length(buf));
MessageBox(handle,PChar('Äàííûå çàïèñàíû è ôàéë ñîõðàí¸í !'+#13#10), PChar('message'), 64);
FS.Free;
end;
end;

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

if Pos('Serg', fn) > 0 then

Да, работает , но я попробовал (так как не знаю как будет в имени, по этому все варианты предполагаю) и опять баг..

Если _SER_ так работает, -SER-, так тоже работает, SER так тоже работает, а вот так_SER3445667 уже не работает, _SER(234455).bin так тоже не работает.

Да работает так : _SER_ ,-SER-, 123SER, а вот так уже не работает _SER(1234).bin , так тоже не работает -12SER-

И ещё, не понятно почему этот код уходит в ошибку и пишет что это не hex строка
aAbBcC3456dD2345eE45fF56767 , все значения в heh есть заглавные и не заглавные и цифры, а прога в ошибку уходит и не записывает, это совсем нехорошо..