Несколько вопросов ( Delphi 7 )

[-Jack-]

Всем доброго времени суток. Столкнулся с такими вопросами ...

1. есть слово, которое записано в переменной. Как проверить, на пример содержит ли это слово знак "_" или нет ?

2. При помощи HEX редактора открыл файлик и всё увиденное записал в массив. Получилоcь вот, что

  buf1: array[0..58] of Byte =($00, $00, $09, $00,$07,$73,$65,$72,$76,$65,  ...

каким образом можно записать все значения массива в файл, чтобы получась копия исходного ?

3. Возможно ли каким либо образом проверить, находится в архиве файл tratata.txt. В роли архива выступает jar-файл.

[Serge_Bliznykov]

1)

if Pos('_', Переменная)>0 then // содержит
else // не содержит

2)
воспользоваться либо стареньким добрым BlockWrite
либо TFileStream:

 buf1: array[0..58] of Byte =($00, $00, $09, $00,$07,$73,$65,$72,$76,$65,  ...

var
    TF : TFileStream;
begin
   try
      TF := TFileStream.Create('MyCloneNewFile.bin', fmCreate );
      TF.WriteBuffer(Buf1, 59 );
   finally
      FreeAndNil(TF);
   end;

TFile

[veniside]

1)

if (0 < pos('_', slovo)) then  // да, содержит

2)

var
  f: file;
begin
  assign(f, 'copy.dat');
  reset(f);
  blockwrite(f, buf1, sizeof(buf1));  // вроде не соврал
  closefile(f); // точно не помню
end;

3) был такой архиватор jar под дос, лет 15 назад. Но, скорей всего, речь не про него, а про явовские архивы (которые суть .зип). В любом случае, запускаем внешний архиватор с опцией list и перенаправлением вывода в файл, далее файл сканируем на наличие "tratata.txt". Можно и в лоб сканировать сам файл архива, имена файлов там обычно так и хранятся, как есть.

[-Jack-]

Спасибо большое, что помогли )) Но возникло ещё 2 вопроса )))
1)

 if Pos('_', Переменная)>0 then // содержит
else // не содержит

А если речь идет о диапазоне на пример от 'А до Я' ?

3) был такой архиватор jar под дос, лет 15 назад. Но, скорей всего, речь не про него, а про явовские архивы (которые суть .зип). В любом случае, запускаем внешний архиватор с опцией list и перенаправлением вывода в файл, далее файл сканируем на наличие "tratata.txt". Можно и в лоб сканировать сам файл архива, имена файлов там обычно так и хранятся, как есть.

Да речь идет о Java-архиве.
А можно чуть по подробней с реализацией ?

Просто у меня была мысль просмотреть Java архив по байтам и выловить tratata.txt, потому что он HEX'ом очень хорошо просматривается и всё видно )

[temaps]

Сообщение от -Jack-

А если речь идет о диапазоне на пример от 'А до Я' ?

есть такая штука удобная, цикл называется

[-Jack-]

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

есть такая штука удобная, цикл называется

А каким образом можно это реализовать, если нужно, чтобы переменная содержала только цифры и англ буквы ?

[Serge_Bliznykov]

Сообщение от -Jack-

чтобы переменная содержала только цифры и англ буквы ?

для таких вещей удобно использовать множества.
вот так, например:

function IsGoodChars( s : string ) : boolean;
var i : integer;
begin
   Result := false;
   for i:=1 to Length(s) do
     if Not (s[i] in ['a'..'z','A'..'Z','0'..'9'] ) then Exit;
   Result := true;
end;

....
// использование
 if IsGoodChars( Переменная) then // good! содержит только латиницу/цифры
 else // плохая строчка, что-то там ещё закралось не нужное!!

-Jack-, без обид, но уроверь владения языком Паскаль у Вас ниже плинтуса...
может Вам стоит книжки для начинающих почитать, задачки (начального уровня) порешать?