Работа с массивами

Array --> String

2013-10-19T17:02:25+07:00

Code:

function ArrayToStr(str: TStrings; r: string): string;

var

i: integer;

begin

Result:='';

if str = nilthen

Exit;

for i := 0to Str.Count-1do

Result := Result + Str.Strings[i] + r;

end;

Array of Byte --> TMemoryStream

2013-10-19T17:00:42+07:00

В следущем примере результате должен получится файл c:\test.txt такого содержания: 123456789

поскольку числа с 49 до 51 являются ASCII-кодами этих чисел, а соответственно и являются их символьным представлением.

Подробнее...

String --> Array

2013-10-19T17:02:04+07:00

Code:

Procedure AssignFixedString( Var FixedStr: Arrayof Char; Const S: String

);

Var

maxlen: Integer;

Begin

maxlen := Succ( High( FixedStr ) - Low( FixedStr ));

FillChar( FixedStr, maxlen, ' ' ); { blank fixed string }

If Length(S) > maxlen Then

Move( S[1], FixedStr, maxlen )

Else

Move( S[1], FixedStr, Length(S));

End;

Подробнее...

TMemoryStream --> Array of Byte

2013-10-19T16:59:39+07:00

ДляпреобразованияTMemoryStreamвarray of Byteможноиспользоватьследующийкод:

Code:

procedure TForm1.Button1Click(Sender: TObject);

{©Drkb v.3(2007): www.drkb.ru}

var

M: TMemoryStream;

Buff: arrayof Byte;

begin

M := TMemoryStream.Create;

try

M.LoadFromFile('c:\test.htm');

SetLength(Buff, M.Size);

M.Position := 0;

M.Read(Buff[0], M.Size);

finally

M.Free;

end;

Запись массива на диск

2013-10-19T16:39:27+07:00

Скажем, ваша структура данных выглядит следующим образом:

Code:

type

TMyRec = record

SomeField: Integer;

SomeOtherField: Double;

TheRest: array[0..99] of Single;

end;

Подробнее...

Использование DynArrayFromVariant

2013-10-19T17:08:06+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

type

T2DIntArray = arrayofarrayof Integer;

var

DynArray: T2DIntArray;

V: Variant;

i, k: Integer;

begin

V := VarArrayCreate([0, 1, 0, 1], varInteger);

V[0, 0] := 00;

V[0, 1] := 01;

V[1, 0] := 10;

V[1, 1] := 11;

DynArrayFromVariant(Pointer(Dynarray), V, TypeInfo(T2DIntArray));

for i := 0to High(Dynarray) do

for k := 0to High(Dynarray[i]) do

memo1.Lines.add(IntToStr(DynArray[i, k]));

end;

{

The problem with DynArrayFromVariant is that you can only use it on

variant arrays with 0-based indexes, trying to use it on an array with 1

as lower bound blows up. Since the documentation is silent on that i

would consider it a bug.

}

Использование PHP-like операций с массивами

2013-10-19T16:59:00+07:00

Code:

//Some Array-functions like in PHP.

type

ArrOfStr = arrayofstring;

implementation

function explode(sPart, sInput: string): ArrOfStr;

begin

Подробнее...

Использование ассоциативных массивов

2013-10-18T00:54:53+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

DataField: TStrings;

begin

DataField := TStringList.Create;

DataField.Add(Format('%s=%s', ['Jonas', '15.03.1980']));

ShowMessage(DataField.Values['Jonas'])

// will print the Birthday of Jonas

DataField.Free;

end;

https://delphiworld.narod.r

DelphiWorld 6.0

Использование многомерного массива

2013-10-18T01:04:33+07:00

Code:

type RecType = integer; {<-- здесь задается тип элементов массива}

const MaxRecItem = 65520div sizeof(RecType);

type = MyArrayType = array[0..MaxRecItem] of RecType;

type = MyArrayTypePtr = ^MyArrayType;

var MyArray: MyArrayTypePtr;

begin

ItemCnt := 10; {количество элементов массива, которые необходимо распределить}

GetMem(MyArray, ItemCnt * sizeof(MyArray[1])); {распределение массива}

MyArray^[3] := 10; {доступ к массиву}

FreeMem(MyArray, ItemCnt * sizeof(MyArray[1])); {освобождаем массив после работы с ним}

end;

Michael Day

Взято из Советов по Delphi от Валентина Озерова

Сборник Kuliba

Подробнее...

Как поместить двумерный массив в Image

2013-10-19T17:04:47+07:00

Представим, что данные находятся в массиве:

Code:

TestArray : array[0..127, 0..127] of Byte;

Подробнее...

Массив без ограничения типа и размера

2013-10-18T01:05:43+07:00

Code:

//к примеру опишем свой тип

type

MyType = record

zap1: longword;

zap2: char;

zap3: string[10];

end;

//опишем НЕОГРАНИЧЕННЫЙ массив переменный типа MyType

//хотя, может использоваться абсолютно любой

var

m: arrayof MyType;

....

procedure TForm1.Button1Click(Sender: TObject);

var i: byte;

begin

for i := 0to9do// нумерация элементов начинается с нуля!

begin

SetLength(m, Length(m) + 1); // увеличение длины массива на 1

m[i].zap1 := i; // присвоение

m[i].zap2 := chr(i); // полям

m[i].zap3 := inttostr(i); // значений

end;

....

SetLength(m, 0); // освобождение памяти

end.

C Уважением,

Сергей Дьяченко, sd arzamas.nnov.ru

Взято из Советов по Delphi от

Массив в Delphi

2013-10-18T00:52:32+07:00

Вот несколько функций для операций с двухмерными массивами. Самый простой путь для создания собственной библиотеки. Процедуры SetV и GetV позволяют читать и сохранять элементы массива VArray (его Вы можете объявить как угодно). Например:

Подробнее...

Массив компонентов

2013-10-19T17:07:31+07:00

Возможно ли создание массива компонентов? Для показа статуса я использую набор LED-компонентов и хотел бы иметь к ним доступ, используя массив.

Прежде всего необходимо объявить массив:

Подробнее...

Операции над числовыми массивами

2013-10-19T16:57:13+07:00

MaxIntValue Возвращает наибольшее значение целочисленного массива.

MaxValue Возвращает наибольшее значение числового массива.

Mean Вычисляет среднее арифметическое всех значений массива.

MeanAndStdDev Вычисляет среднее арифметическое всех значений массива, и среднее отклонение.

MinIntValue Возвращает наименьшее значение целочисленного массива.

MinValue Возвращает наименьшее значение числового массива.

MomentSkewKurtosis Вычисляет среднее значение, дисперсию, отклонение и периодичность.

Norm Возвращает Евклидову норму для всех значений массива.

PopnStdDev Вычисляет среднеквадратичное отклонение для совокупности данных.

PopnVariance Вычисляет дисперсию совокупности данных.

StdDev Вычисляет стандартное среднеквадратичное отклонение элементов массива.

Sum Вычисляет сумму значений всех элементов числового массива.

SumInt Вычисляет сумму значений всех элементов целочисленного массива.

SumOfSquares Вычисляет сумму квадратов всех элементов числового массива.

SumsAndSquares Возвращает сумму элементов и сумму квадратов всех элементов числового массива.

TotalVariance Вычисляет статистическую дисперсию.

Variance Вычисляет типовую дисперсию всех значений массива.

Поиск минимального (максимального) элемента массива , статистика элементов массива

2013-10-19T17:09:47+07:00

Задачу поиска минимального элемента массива рассмотрим на примере массива целых чисел.

Алгоритм поиска минимального (максимального) элемента массива довольно очевиден: сначала делается предположение, что первый элемент массива является минимальным (максимальным), затем остальные элементы массива последовательно сравниваются с этим элементом. Если во время очередной проверки обнаруживается, что проверяемый элемент меньше (больше) принятого за минимальный (максимальный), то этот элемент становится минимальным (максимальным) и продолжается проверка оставшихся элементов.

Подробнее...

Пример массива констант (Array of Const)

2013-10-18T00:58:43+07:00

"Array of const" это массив переменных, декларированных как константы. Непосредственно они представлены структурой TVarRec. Скобки просто ограничивают массив. Массив констант дает вам возможность передавать процедуре переменное количество параметров type-safe (безопасным) способом. Вот пример:

Подробнее...

Примеры работы с динамическими массивами

2013-10-18T00:44:47+07:00

Очень простой пример...

Code:

const

MaxBooleans = (High(Cardinal) - $F) div sizeof(boolean);

type

TBoolArray = array[1..MaxBooleans] of boolean;

PBoolArray = ^TBoolArray;

var

B: PBoolArray;

N: integer;

begin

N := 63579;

{= получение памяти под динамический массив.. =}

GetMem(B, N * sizeof(boolean));

{= работа с массивом... =}

B^[3477] := FALSE;

{= возвращение памяти в кучу =}

{$IFDEF VER80}

FreeMem(B, N * sizeof(boolean));

{$ELSE}

FreeMem(B);

{$ENDIF}

end.

Подробнее...

Проверка наличия числа в массиве

2013-10-19T17:10:41+07:00

Code:

function Among(N: Integer; const Values: arrayof Integer): LongBool;

asm

push ebx

xor ebx, ebx

@@10:

test ecx, ecx

jl @@30

cmp eax, [edx]

jne @@20

not ebx

jmp @@30

@@20:

add edx, 4

dec ecx

jmp @@10

@@30:

mov eax, ebx

pop ebx

end;

Пример использования:

Among(N, [1, 2, 3, 4, 5])

Работа с большими массивами.

2013-10-18T01:02:26+07:00

Распределите память кучи с помощью GetMem. Если вы имеете:

Code:

var a, b: array[0..30000]: Integer;

то попробуйте:

Code:

type TBigArray = array[0..30000] of Integer;

var a, b: ^TBigArray;

и во внешнем блоке сделайте:

Code:

GetMem(a, SizeOf(TBigArray));

GetMem(b, SizeOf(TBigArray));

Подробнее...

Сохранение и загрузка двумерного динамического масива

2013-10-19T16:30:03+07:00

Code:

type

T2DBooleanArray = arrayofarrayof Boolean;

procedure Save2DBooleanArray(const A: T2DBooleanArray; S: TStream);

var

writer: TWriter;

i: Integer;

begin

Подробнее...

Сохранение массива c изображениями

2013-10-19T16:30:50+07:00

Я решил проблему записи массива TBitmap в файл и его повторного чтения.

Идея заключается в загрузке каждого TBitmap во временный TMemoryStream. Член TMemoryStream.Size информирует о размере данных, которые нужно сохранить на диске. Затем мы пишем размер и сопровождаем его данными типа TFileStream. Эту манипуляцию мы проделываем для каждого TBitmap в массиве.

Для процедуры чтения сначала мы должны считать из потока размер данных TBitmap. Затем мы распределяем область для типа TMemoryStream полученного размера и считываем данные. Затем переписываем из TFileStream в TMemoryStream. И, наконец, мы читает из TMemoryStream сам TBitmap. Эту манипуляцию мы проделываем для каждого TBitmap в массиве.

Ниже я привел код, который я реально использовал. Код из игры Bingo, которую я разрабатываю, имеет сетку 5x5, чьи ячейки содержат изображение.

Подробнее...

Удаление и добавление значений динамического массива

2013-10-18T01:07:33+07:00

Code:

type

TArrayString = arrayofstring;

procedure DeleteArrayIndex(var X: TArrayString; Index: Integer);

begin

ifIndex > High(X) then Exit;

ifIndex < Low(X) then Exit;

ifIndex = High(X) then

begin

SetLength(X, Length(X) - 1);

Exit;

end;

Finalize(X[Index]);

System.Move(X[Index +1], X[Index],

(Length(X) - Index -1) * SizeOf(string) + 1);

SetLength(X, Length(X) - 1);

end;

// Example : Delete the second item from array a

// Beispiel : Losche das 2. Element vom array a

procedure TForm1.Button2Click(Sender: TObject);

var

a: TArrayString;

begin

DeleteArrayIndex(a, 2);

end;

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex.php

Подробнее...