0/1

State = Bool(Not State)

0/-1

State = ~State

Тогда "Case 1" заменить на "Case -1"

Ещё ситуация

If  *FirstPointer = *SecondPointer

выше над этим кодом в одной идет вычитание в другой прибавление и они должны сойтись, но существует условие при котором допустим в одном шаге цикла значения будут 6-5 в другом 5-6, то есть при чётном или нечётном числе ситуация будет бесконечной, пока указатель не выйдет за пределы программы. Может тут надо сравнения *FirstPointer > *SecondPointer или проверять делиться ли размер на 2 без остатка.

Отредактировано AZJIO (14.04.2024 10:28:31)

А зачем усложнять?

EnableExplicit
DisableDebugger

Define StartTime, i, State, t1, t2

StartTime = ElapsedMilliseconds()
For i = 0 To 100000000
	If  State = 0
    State = 1
	Else
    State = 0
	EndIf
Next
t1 = ElapsedMilliseconds() - StartTime


StartTime = ElapsedMilliseconds()
For i = 0 To 100000000
	State = Bool(Not State)
Next
t2 = ElapsedMilliseconds() - StartTime

EnableDebugger
Debug t1
Debug t2

Работает практически одинаково по скорости. "If" теоретически неявно выполняет Bool(), ему же надо получить логический результат подвыражения. И раз уж на то пошло, то излишнее приравнивание, можно без него

If State
	State = 0
Else
	State = 1
EndIf

Когда у State два состояния 0/1, то "Select" тут не выгоден, так как он 2 раза сравнивает. "If" делает одно сравнение.

State = -1
If State
	Debug #True
Else
	Debug #False
EndIf

То есть "Select" выполняет как бы вот такую конструкцию:

If State = 1
	Debug #True
ElseIf State = 0
	Debug #False
EndIf

Отредактировано AZJIO (14.04.2024 14:00:50)

Зачем вы все усложняете?
State=1-State.

Логичный подход или пример высосан из пальца) А если некто внесет в .ini неверные данные? Это надо учитывать.

С указателями, всё как было прекрасно, так и осталось.
А вот, что там в вашем цикле делается мне в голову не лезет.
Возьмите листок в клетку и хотя бы на 5 клетках покажите что собирались получить.

EnableExplicit

Define *InputBuffer.Ascii
Define *OutputBuffer.Ascii

Define *FirstPointer.Ascii
Define *SecondPointer.Ascii

*InputBuffer = AllocateMemory(100) 
FillMemory(*InputBuffer, 100, 1,  #PB_Ascii)

*OutputBuffer = AllocateMemory(100 + 1)
FillMemory(*OutputBuffer, 101, 0,  #PB_Ascii)

Define i
*FirstPointer = *InputBuffer
*SecondPointer = *OutputBuffer
For i = 0 To 100
	
	*SecondPointer\a = *FirstPointer\a
	
	*FirstPointer    = *InputBuffer + i
	*SecondPointer   = *OutputBuffer + i
	
Next	

ShowMemoryViewer(*OutputBuffer, 101)

FreeMemory(*InputBuffer)
FreeMemory(*OutputBuffer)

Отредактировано useful (15.04.2024 06:46:49)

Очевидно же, что вы этого не делаете.
Хотите разобраться, покажите на 5 ячейках что хотите получить. Без указателей на двух массивах например.

В этой веткке не вижу. Код у вас не работает. Нужна помощь, пишите что хотели сделать.
На массивах с чётным (6 элементов) и с не чётным (5 элементов)  покажите и всё встанет на свои места.

p.s. то, что проблема не в указателях, а в алгоритме ОЧЕВИДНО.
p.p.s вообще без циклов с явными индексами для 5 и 6 элементов покажите.

==============
Или ещё проще покажите желаемый результат для строки 12345 и для строки 123456

Отредактировано useful (15.04.2024 10:30:30)

Моему первому указателю 45 лет. Откуда мне уметь то?

ответ ждать? Или таки "сами с усами"?

Отредактировано useful (15.04.2024 10:53:04)

Смешной вы человек! )))

*FirstPointer + SizeOf(Byte) есть
*SecondPointer  - SizeOf(Byte) есть

А где

*ResultPointer + SizeOf(Byte)

что бы там хоть что то менялось кроме первого байта.
Если всё время писать в один и тот же байт памяти то тут однозначно указатели ВИНОВАТЫ )))

Но это не отменяет моего вопроса по поводу чётного и не чётного количества байт в исходном файле и алгоритме это учитывающем.

p.s. "Если что то делать, то что то будет". Что то восточное.
Соответственно если в буфер не писать, а ждать, что само появится, то НЕТ.

Отредактировано useful (15.04.2024 11:20:58)

только прохода не случилось )))

Отредактировано useful (15.04.2024 11:24:26)

Аналогично.

Но "давайте не будем ему мешать, а просто понаблюдаем" (с) Николай Дроздов.

Как я понял, нужно первый байт оставлять на месте, второй записывать в конец буфера, третий на место второго, четвёртый на место предпоследнего и т.д.
Если я не ошибаюсь, то я бы сделал так:

For i=0 To InputFileSize-1
  If Not i%2
    PokeA (*OutputBuffer+i/2, PeekA (*InputBuffer+i))
  Else
    PokeA (*OutputBuffer+InputFileSize-1-i/2, PeekA (*InputBuffer+i))
  EndIf
Next
PokeA (*OutputBuffer+InputFileSize, i%2); последним дополнительным батом - чётное/не чётное число байт. Не понятно только, зачем это? Ну ладно, если автору топика это нужно...

Вместо этого участка кода:

*FirstPointer.Ascii       = *InputBuffer
*SecondPointer.Ascii  = *InputBuffer + InputFileSize - SizeOf(Byte)

*ResultPointer.Ascii  = *OutputBuffer + SizeOf(Byte)

Repeat
  Select  State
    Case  0
      *ResultPointer\a = *FirstPointer\a
      *FirstPointer + SizeOf(Byte)
    Case 1
      *ResultPointer\a = *SecondPointer\a
      *SecondPointer  - SizeOf(Byte)
  EndSelect
  
  If  *FirstPointer = *SecondPointer
    *ResultPointer\a = *FirstPointer\a
    *OutputBuffer\a = State
    Break
  EndIf
  
  State = ~State
  
ForEver

Ну вообще, по чесноку, я бы переписал по другому весь код от начала до конца, но это не важно.