Полезная информация и куски кода для программирования на Delphi 6

Код процедуры альтернативный функции Explode в PHP

Процедуру необходимо добавить в { Public declarations } следующим образом procedure myExplode(sourceText: string; separator: string; var outMass: array of string; var outMassLen: integer);

procedure TForm1.myExplode(sourceText: string; separator: string; var outMass: array of string; var outMassLen: integer);
var position,separatorLen: integer;
begin
  outMassLen:= 0;//Количеству элементов выходного массива присвоим 0(в любом случаи выходной массив будет содержать как минимум элемент с индексом 0, такой результат будет если разделитель не будет найден в исходном тексте вовсе)
  separatorLen:= Length(separator);//Определяем длину разделителя
  Repeat//Цикл с постусловием
    position:= Pos(separator,sourceText);//Пробуем найти позицию вхождения разделителя в исходный текст(или очередной фрагмент исходного текста)
    if (position <> 0) then//Если найдена позиция вхождения разделителя в исходный текст(или очередной фрагмент исходного текста)
    begin
      outMass[outMassLen]:= Copy(sourceText,1,position-1);//Добавим в массив участно
      sourceText:= Copy(sourceText,position+separatorLen,(Length(sourceText)-position-separatorLen+1));//Теперь исходный текст будет начинаться с следующего фрагмента
      Inc(outMassLen);//Увеличиваем значение на 1
    end;
  Until (position = 0);//Здесь условие выхода из цикла а не продолжения
  outMass[outMassLen]:= sourceText;//Добавим в массив последний участок или весь исходный текст если разделитель не был найден вовсе
end;

Пример использования по нажатию кнопки Button1

В JavaScript аналогом функции explode является split

Для тогоч тобы в JavaScript разбить строку на массив по заданному разделителю используют функцию split, вот пример кода использования split:

var a = '1234567890abc';
s = a.split('23');// Результатом выполнения является массив ['1','4567890abc']

Функция Explode для работы с массивом байт для Delphi 6

Если необходимо работать в Delphi с массивом байт и разбить его на части по сепаратору состоящему так же из массива байт, можно использовать функцию из следующего листинга. Для её использоваться необходимо в type создать TMyByteAr = TMyBaytAr; в свою очередь TMyByteAr = array of byte; Функция принимает 2 параметра: первый массив байт(array of byte) с данными которые необходимо разбить, второй параметр - сепаратор по которому осуществляется разбиение так же является массивом байт. Сам сепаратор в элементы разбитого массива не входит.

function TForm1.myExplodeByteAr(var dataAr: array of byte;separatorAr: array of byte): TMyByteArAr;
var
  dataArLen,separatorArLen,i,t,startPos,count: integer;
begin
  dataArLen:= length(dataAr);
  separatorArLen:= length(separatorAr);
  setLength(result,1);
  if (separatorArLen >= dataArLen) then
  begin
    setLength(result[0],dataArLen);
    move(dataAr[0],result[0][0],dataArLen);
  end else begin
    t:= 0;
    count:= 0;
    startPos:= 0;
    for i:= 0 to (dataArLen-1) do begin
      if (dataAr[i] = separatorAr[t]) then
      begin
        inc(t);
        if (t = separatorArLen) then
        begin;
          setLength(result,(count+2));//Изменение размера основного массива, прибавление сразу 2 чтобы потом под последний элемент не выделять
          setLength(result[count],(i-t-startPos+1));//Изменение размера элемента массива
          move(dataAr[startPos],result[count][0],(i-t-startPos+1));
          inc(count);
          t:= 0;
          startPos:= i+1;
        end;
      end else
        if (t <> 0) then t:= 0;
    end;
    setLength(result[count],(dataArLen-startPos));//Изменение размера для последнего элемента
    move(dataAr[startPos],result[count][0],(dataArLen-startPos));//Добавляем последний элемент
  end;
end;

Функция получения даты и времени UNIX TimeStamp по TDataTime

Функция получения даты и времени TDataTime по UNIX TimeStamp

Функция получения дня месяца и года с ведущим нуём по гринвичу

Для использования типа TTimeZoneInformation в листинге ниже необходимо наличие Windows в uses.

Функция для сравнения двух массивов байт для Delphi 6

Перед использованием данной функции необходимо добавить в type TMyByteAr: array of byte; Программный код функции находится в листинге ниже.

Функции implode аналогичные PHP для Delphi 6

В следующем листинге находится функция для соединения массива массивов битов в единый массив битов через сепаратор который так же является массивом битов.

Функция для определения вхождения одного массива байт в другой массив байт

function TForm1.myExiestsByteAr(var byteAr: TMyByteAr;var byteAr2: TMyByteAr): boolean;
var
  i,t,byteArLen,byteAr2Len: integer;
//  check: boolean;
begin
  result:= false;
  byteArLen:= length(byteAr)-1;
  byteAr2Len:= length(byteAr2)-1;
  if ((byteArLen >= 0) and (byteAr2Len >= 0) and (byteArLen >= byteAr2Len)) then
  begin
    t:= 0;
//    count:= 0;
//    startPos:= 0;
    for i:= 0 to (byteArLen) do
      if (byteAr[i] = byteAr2[t]) then
      begin
        if (t = byteAr2Len) then
        begin;
          result:= true;
          break;
//          setLength(resultAr,(count+2));//Изменение размера основного массива, прибавление сразу 2 чтобы потом под последний элемент не выделять
//          setLength(resultAr[count],(i-t-startPos+1));//Изменение размера элемента массива
//          move(dataAr[startPos],resultAr[count][0],(i-t-startPos+1));
//          inc(count);
//          t:= 0;
//          startPos:= i+1;//Для explode определялась
        end;
        inc(t);
      end else
        if (t <> 0) then t:= 0;
  end;
end;