Your browser does not seem to support JavaScript. As a result, your viewing experience will be diminished, and you may not be able to execute some actions.

Please download a browser that supports JavaScript, or enable it if it's disabled (i.e. NoScript).

E2033 Types of actual and formal var parameters must be identical

Laycee last edited by

In Delphi XE2, the Compiler swears on functions WriteProcessMemory and ReadProcessMemorymaking a mistake
error E2033: E2033 Types of actual and formal var parameters must be identical
Delphi7 works great. Has anyone encountered it?
Reply Quote 0
1 Reply Last reply

Duquan

Comparison of methods in 2010 (7k) and XE2:

//Delphi 2010
function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; stdcall;
//Delphi XE2

function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer;

lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;

function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer;

lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesWritten: SIZE_T): BOOL; stdcall;

I mean, all you need is to clearly indicate the type of data for variables transmitted as lpNumberOfBytesWrittenLike SIZE_T♪

SIZE_TApparently, there was support for 64-bit systems.

delphi 3974

2
Posts

0
Views

Suggested Topics

J

Delphi Laboratory - indicate errors
Software Programming • delphi • • jonetta

2

0
Votes

2
Posts

0
Views

Total readln variables in the comma shall be specifiedafter else Don't be. ;design if then else begin/end I don't think it's worth it.
Z

User.Identity.Name as a "filter" parameter does not work FormView ASP.NET
Software Programming • c sharp asp.net webforms • • zymir

2

0
Votes

2
Posts

0
Views

E

Resolution: It was necessary to put a Textbox with the code to work.<asp:TextBox ID="txtUsuario" runat="server" Text='<%# User.Identity.Name %>' Visible="False" /> Then take the filter from that textbox, no idea why it worked.
T

Delphi movement of buttons
Software Programming • delphi • • tahishae

2

0
Votes

2
Posts

0
Views

Try to put the flag on:if flag=0 then begin flag:=1; ... end else begin flag=0; ... end; Or use Tag in button - you don't have to create a variable. UpdatingTForm1.Button1Click(Sender: TObject); begin case n of 0: begin Button1.Left:=0; Button1.Top:=0; Form1.Color:=clRed; n:=1; end; 1: begin Button1.Width:=Button1.Width * 2; Button1.Height := Button1.Height * 2; Button1.Left:= ClientWidth - Button1.Width; Button1.Top:=0; Form1.Color:=clGreen; n:=2; 2: begin ... n=3; end; 3: begin ... n:=0; end; end; end;
S

Getting table SQL: "types... must be identical"
Software Programming • sql delphi • • simrah

2

0
Votes

2
Posts

0
Views

Types of actual and formal var parameters must be identical - indicates non-conformity of typesLook at the type of data you need to get to the procedure, and compare to what you're transmitting - that's where the dog's buried.
K

Inscription of tracks from one top of the count to another
Software Programming • delphi pascal delphi 7 graphs precursors • • Kadir

2

0
Votes

2
Posts

0
Views

J

There's nothing to check, no IDE, no test data. But as a result of the comments, look in the following direction:visited - a whole mass on the top of the count. 0 - The top was not visited, or the number was the order number on the way. 1..Mwhere M on the way. Introduce to the parameters of the function zthat's every new step of the way.procedure dfs(var a:TArray; var visited: Tmas; n, v, x: integer; var cnt: integer; z : integer = 1); var i: integer; procedure printPath(); var k,m : integer; begin for k := 1 to z do begin // количество узлов в пути for m := 1 to n do begin // длина visited, число вершин if visited[m] = k then begin // нашли номер шага пути write('->', m); // номер вершины break; end; end; end; writeln(); end; begin if v = x then begin // дошли в конечную точку Х Inc(cnt); // увеличили число путей printPath(); // напечатали путь exit; // вернулись к предыдущему шагу пути end; visited[v] := z; // сейчас мы посещаем вершину v for i := 1 to n do begin // просматриваем другие точки if a[v, i] and // если i-я и текущая связаны (visited[i] = 0) then begin // и i-я еще не посещалась dfs(a, visited, n, i, x, cnt, z+1); // то идем в i-ю end; end; visited[v] := 0; // возвращаемся к предыдущему шагу пути // выходим из рекурсии, // освобождая вершину v end; This algorithm works in such a way that each new challenge to the competition leads to a transition to the next point of the interior. When we hit a new vibe, we used to just remember that the top was visited. Now we're recording a number that informs us that she's been visited by a step. z♪And that's when we came to the point we wanted, our path was completed in the mass. visited It's written on the order in which the peaks are to pass to get here Now we have to get the way out. We know his length is equal to current. z (i.e. how many transitions we've made). So the cycle of 1 to z is found to be relevant in the mass, and we shall remove the top (index).The algorithm is as simple as a vain. If you're having trouble with your attitude, write a simple graph on your paper, draw up the data sets, and with the pencil decide this algorithm on the leaf, it'll put everything on its own.
T

How to create dynamic form in Delphi
Software Programming • delphi delphi xe5 • • terrea

2

0
Votes

2
Posts

0
Views

A

The error in your code is in: procedure TLogin.CriarForm(NomeForm: TFormClass); begin //Procedimento para criar formulario na memória with NomeForm do begin Try begin //<- Não se abre um bloco begin-end dentro de blocos try-finally TForm(NomeForm):=NomeForm.Create(Application); TForm(NomeForm).Showmodal; end; Finally FreeAndNil(NomeForm); End; end; end; The correct form would be:procedure TLogin.CriarForm(NomeForm: TFormClass); begin //Procedimento para criar formulario na memória with NomeForm do begin Try TForm(NomeForm):=NomeForm.Create(Application); TForm(NomeForm).Showmodal; Finally FreeAndNil(NomeForm); End; end; end;
A

Create a function that returns if the phrases are equal. You must receive as parameters the two sentences. He'll return a boolean
Software Programming • c++ • • authera

2

0
Votes

2
Posts

0
Views

Y

Welcome, Max.Look at your code if you've copied it and pasted your breakthrough has a lot of mistakes, so you have feedback.If you declare your char within main, they will never be read by your simi function, so you have to declare them on main and if you will compare using the string library.If you're going to use your simi function, you have to declare it also about main, and then make a call within your main function.The cin ignores are playing you against to make the comparison and will always give you false.This is a tip, you can use boolalpha in the cout so you can show the value as true or false, and not 1 and 0.Then we have the following.#include <iostream> #include <string.h> using namespace std; char frase[50]; char frase2[50]; void simi (); int main () { simi (); } void simi () { bool resp = true; string frasecita = ""; cout << "Primer dato" << endl; cin.getline (frase, 50); cout << "segundo dato" << endl; cin.getline (frase2, 50); if (strcmp (frase, frase2) == 0) { resp = true; } else { resp = false; } cout << boolalpha << resp << endl; }
A

Authorization and Internet connectivity
Software Programming • delphi http • • Avante

2

0
Votes

2
Posts

0
Views

procedure TForm1.Button1Click(Sender: TObject); var v: Variant; doc: IHTMLDocument4; doc2: IHTMLDocument2; elems: IHTMLElementCollection; i: Integer; elem: IHtmlElement; PersistStream: IPersistStreamInit; Stream: IStream; MemoryStream: TMemoryStream; begin //CoInitialize(nil);// Если запуск будет внутри другого потока (thread'а), нужно вызывать для работы Ole объектов, rtm //Временный документ, для вызова метода doc:= CoHTMLDocument.Create as IHTMLDocument4; //Чтобы работали методы, нужно чтоб документ был непустой v:= VarArrayCreate([0, 0], varVariant); //html код временного документа. можно любой, он не играет роли v[0] := '<html></html>'; with (doc as IHTMLDocument2) do begin //Преобразование к требуемому типу writeln(PSafeArray(TVarData(v).VArray)); close(); end; //Создаем документ по url. Сюда подставить надо нужный адрес //Предварительно стоит проверить и отэскейпить если надо логин и пароль (самостоятельно:) doc2:=doc.createDocumentFromUrl('http://example.com/login/?name='+Edt1.Text+'&pass='+Edt2.Text,''); //Ждем пока загрузится документ while doc2.readyState <> 'complete' do Application.ProcessMessages; //Загрузился документ //Выбираем все элементы по тэгу elems:=doc2.all.tags('span') as IHTMLElementCollection; //Альтернативный вариант из IHTMLDocument3 вызывать getElementsByTagName или другие необходимые методы // предварительно преобразуем doc3:=doc2 as IHTMLDocument3; for i := 0 to elems.length - 1 do begin //Соответствующее сообщение MessageBox(Handle,'Span найден!!!111','Искали span',MB_OK); //Вдруг понадобится не только сообщать но еще что-то получить из этих элементов: // elem:=elems.item(i,0) as IHTMLElement; // Memo2.Lines.Add('Span найден!!!111'); // Memo2.Lines.Add(elem.innerHTML); end; //Сохраняем исходный текст страницы //Преобразуем документ к другому интерфейсу PersistStream := doc2 as IPersistStreamInit; //Поток, в который будем писать исходник MemoryStream:= TMemoryStream.Create; try //Создаем объект с интерфейсом IStream, он нужен для общения с интерфейсом документа Stream := TStreamAdapter.Create(MemoryStream, soReference) as IStream; //Сохраняем исходный текст документа, если не вышло, ругаемся if Failed(PersistStream.Save(Stream, True)) then ShowMessage('SaveAs HTML fail!') ; //Перемещаем позицию в потоке в начало (после записи она в конце) MemoryStream.Position:=0; //Грузим из потока в Memo1 Memo1.Lines.LoadFromStream(MemoryStream); finally //Освобождаем память MemoryStream.Free; end; end; The first part - the downloading of the document can be simplified through TWebBrowser's, searches are full of examples.
O

How to insert equal objects or list of objects in MongoDB?
Software Programming • delphi mongodb nosql pasc languagealobjec lang • • Oba22

2

0
Votes

2
Posts

0
Views

R

I think what you want to do is include an array of the person object, the way it did is including a property/attribute person and it is really only possible to have a property with the same name. To include several people the correct Json would be this one below.{ Casa:'b32', integrantes:[ {pessoa: 'joao'}, {pessoa: 'Maria'}, {pessoa: 'Daniel'} ] } Here's an example in the mongodb shell:
Change an int-type value to a PHP string type
Software Programming • php mysqli • • Mystic

2

0
Votes

2
Posts

0
Views

A

Defines a function: function getMes($n) { if ($n==1) return "enero"; if ($n==2) return "febrero"; if ($n==3) return "marzo"; if ($n==4) return "abril"; if ($n==5) return "mayo"; if ($n==6) return "junio"; if ($n==7) return "julio"; if ($n==8) return "agosto"; if ($n==9) return "septiembre"; if ($n==10) return "octubre"; if ($n==11) return "noviembre"; if ($n==12) return "diciembre"; } alternative to that function: function getMes($n) { $meses = array("enero","febrero","marzo","abril","mayo","junio","julio" "agosto","septiembre","octubre","noviembre","diciembre"); return $meses[$n-1]; } and when you print:echo getMes($fila['mes']).'<br />';
R

Change InputQuery Box Size
Software Programming • delphi delphi 10 delphi berlin delphi tokyo • • Raziyah00

2

0
Votes

2
Posts

0
Views

This function does not have a overload that makes this available, the way is to make one.I have several ready in my system for various formats, namely String, Extended, Integer, Dates etc...Here's an example:function TFormTeste.InputValor(const aCaption: String; var aValor: String): Boolean; var vForm : TForm; vLabel : TLabel; vBtnOk : TBitBtn; vValor : TEdit; begin Result := False; vForm := TForm.Create(Application); vLabel := TLabel.Create(vForm); vBtnOk := TBitBtn.Create(vForm); vValor := TEdit.Create(vForm); with vForm do begin Name := 'FormValor'; Position := poScreenCenter; BorderIcons := [biSystemMenu]; BorderStyle := bsSingle; Caption := aCaption; ClientHeight := 70; ClientWidth := 180; Color := clBtnFace; OldCreateOrder := False; PixelsPerInch := 96; end; with vLabel do begin Name := 'vLabel'; Parent := vForm; Left := 8; Top := 16; Width := 31; Height := 13; Caption := 'Valor: '; end; with vValor do begin Name := 'vValorEdit'; Parent := vForm; Left := 52; Top := 11; Width := 120; Height := 21; TabOrder := 0; end; with vBtnOk do begin Name := 'vBtnOk'; Parent := vForm; Caption := 'Ok'; Left := vValor.Left; Top := vValor.Top + vValor.Height + 5; Width := vValor.Width; Height := 21; ModalResult := mrOk; end; vForm.ShowModal; if(vForm.ModalResult = mrOk) and (vValor.Text <> '') then begin Result := True; aValor := vValor.Text; end; FreeAndNil(vForm); end; Use as the Official:var vTeste : String; begin if (InputValor('Informe um texto', vTeste) = True) then ShowMessage(vTeste);
R

Pass as a parameter to a function an object that can be of different types. C#
Software Programming • c sharp objec languaget • • rielyn

2

0
Votes

2
Posts

0
Views

D

You don't need a function that distinguishes between two different types. You need two functions:private class Cliente{} private class Factura{} static void Funcion(Cliente c) { Console.WriteLine("Cliente"); } static void Funcion(Factura f) { Console.WriteLine("Factura"); } public static void Main(string[] args) { Funcion(new Cliente()); // Llama a la versión Cliente Funcion(new Factura()); // Llama a la versión Factura } This is known as polymorphism at function level or https://en.wikipedia.org/wiki/Ad_hoc_polymorphism .
N

Initiation within the definition of a parameter function with a type IN
Software Programming • oracle plsql • • nishika

2

0
Votes

2
Posts

0
Views

S

The value of default shall be used:To write a more laconic code. If the function is called 100 times:atr (1) and for example, there is only one special case with a different meaning:atr (1, code=>3000) For "exhaustive" change/extension of function. For example, adding a new parameter code in number :=1000the existing code in the duty stations will remain unchanged. Without the default value for the new parameter, it will need to be added everywhere where the function is caused (tens or hundreds of changes).create or replace function atr (sode in number) return varchar2 is begin return 'старое значение для '||sode; end; / That was, and in a couple of years, we decided to change, adding a new parameter:create or replace function atr (sode in number, code in number:=1000) return varchar2 is begin return case when code != 1000 then 'значение для '||sode||' с учетом code '||code else 'старое значение для '||sode end; end; / select atr (99) result from dual / RESULT старое значение для 99
A

Why is the type using var not Mは but object when C# MatchCollection is turned on foreach?
Software Programming • • Avante

2

0
Votes

2
Posts

0
Views

https://docs.microsoft.com/ja-jp/dotnet/csharp/language-reference/keywords/foreach-in is written in the document. IEnumerable<T> Home IEnumerable not to extract.A type with a public method GetEnumerator without parameters, which is either a class, structure, or interface type. In C# 9.0 or later, you can use the GetEnumerator method to extend the type.The return type of the GetEnumerator method has a public method MoveNext with no parameters where the public property Current and the return type are Boolean.In short,foreachloopGetEnumerator().CurrentContact Us Then,MatchCollectionis a substitute that continues from the .NET era before the generic appearance, https://docs.microsoft.com/en-us/dotnet/api/system.text.regularexpressions.matchcollection.getenumerator?view=netcore-3.1 Homeobjectis defined. https://docs.microsoft.com/en-us/dotnet/api/system.collections.generic.list-1.getenumerator?view=netcore-3.1 HomeTto be defined.F# for ... in syntax get_Item() It is a specification to see the return value of the method, MatchCollection Home Match can be reasoned.Whyget_Item() ItemBecause the actual method of the indexer property often uses this name. Sometimes you can't reason for a class with another method nameobjectIt may beApply,M Collection ICollection<Match>, IEnumerable<Match>,... and inheritSnake footMatchCollection.NET Standard 2.1 and later .NET Framework 4.8foreachLINQ can be used as described above.
N

Problem with expansion
Software Programming • delphi list masses • • nishika

2

0
Votes

2
Posts

0
Views

S

... TArr = array of person; var student : TArr; x,max_len:integer; Procedure newStud(var stud:TArr); begin SetLength(stud,length(stud)+1); ... end;

E2033 Types of actual and formal var parameters must be identical

Suggested Topics

Delphi Laboratory - indicate errors Software Programming • delphi • • jonetta

User.Identity.Name as a "filter" parameter does not work FormView ASP.NET Software Programming • c sharp asp.net webforms • • zymir

Delphi movement of buttons Software Programming • delphi • • tahishae

Getting table SQL: "types... must be identical" Software Programming • sql delphi • • simrah

Inscription of tracks from one top of the count to another Software Programming • delphi pascal delphi 7 graphs precursors • • Kadir

How to create dynamic form in Delphi Software Programming • delphi delphi xe5 • • terrea

Create a function that returns if the phrases are equal. You must receive as parameters the two sentences. He'll return a boolean Software Programming • c++ • • authera

Authorization and Internet connectivity Software Programming • delphi http • • Avante

How to insert equal objects or list of objects in MongoDB? Software Programming • delphi mongodb nosql pasc languagealobjec lang • • Oba22

Change an int-type value to a PHP string type Software Programming • php mysqli • • Mystic

Change InputQuery Box Size Software Programming • delphi delphi 10 delphi berlin delphi tokyo • • Raziyah00

Pass as a parameter to a function an object that can be of different types. C# Software Programming • c sharp objec languaget • • rielyn

Initiation within the definition of a parameter function with a type IN Software Programming • oracle plsql • • nishika

Why is the type using var not Mは but object when C# MatchCollection is turned on foreach? Software Programming • • Avante

Problem with expansion Software Programming • delphi list masses • • nishika

Delphi Laboratory - indicate errors
Software Programming • delphi • • jonetta

User.Identity.Name as a "filter" parameter does not work FormView ASP.NET
Software Programming • c sharp asp.net webforms • • zymir

Delphi movement of buttons
Software Programming • delphi • • tahishae

Getting table SQL: "types... must be identical"
Software Programming • sql delphi • • simrah

Inscription of tracks from one top of the count to another
Software Programming • delphi pascal delphi 7 graphs precursors • • Kadir

How to create dynamic form in Delphi
Software Programming • delphi delphi xe5 • • terrea

Create a function that returns if the phrases are equal. You must receive as parameters the two sentences. He'll return a boolean
Software Programming • c++ • • authera

Authorization and Internet connectivity
Software Programming • delphi http • • Avante

How to insert equal objects or list of objects in MongoDB?
Software Programming • delphi mongodb nosql pasc languagealobjec lang • • Oba22

Change an int-type value to a PHP string type
Software Programming • php mysqli • • Mystic

Change InputQuery Box Size
Software Programming • delphi delphi 10 delphi berlin delphi tokyo • • Raziyah00

Pass as a parameter to a function an object that can be of different types. C#
Software Programming • c sharp objec languaget • • rielyn

Initiation within the definition of a parameter function with a type IN
Software Programming • oracle plsql • • nishika

Why is the type using var not Mは but object when C# MatchCollection is turned on foreach?
Software Programming • • Avante

Problem with expansion
Software Programming • delphi list masses • • nishika