Alles richtig, trotzdem "Incompatible Types TString List and Integer"?

[pmros]

Kann da mal schnell jemand drüber schauen und mir sagen, warum

Delphi-Quellcode:

function commands (request:string):TStringList; stdcall;
var
s1, s2, s3: String;
Liste: TStringList;

begin
s1:='H';
s2:='G0';
s3:='G1';
Liste := TStringList.Create;
Liste:=
    Liste.Add(s1);
    Liste.Add(s2);
    Liste.Add(s3);

result:=Liste;
end;

exports commands;

Das hier ausgibt?!:

Code:

[Error] Project2.dpr(24): Incompatible types: 'TStringList' and 'Integer'

Ich habe doch s1 - s3 als strings definiert und nicht als integer, wo ist denn das Problem?

[Luckie]

Du willst ein Objekt aus einer DLL zurückgeben? Das wird so nichts. Informiere dich mal über "DLL und Objekte".

[BadenPower]

Zitat:

Zitat von pmros (Beitrag 1315355)

Delphi-Quellcode:

function commands (request:string):TStringList; stdcall;
var
s1, s2, s3: String;
Liste: TStringList;

begin
s1:='H';
s2:='G0';
s3:='G1';
Liste := TStringList.Create;
Liste:=  //schau mal hier
    Liste.Add(s1);  // und hier
    Liste.Add(s2);
    Liste.Add(s3);

result:=Liste;
end;

exports commands;

Du weist der Stringliste mit dem Namen "Liste" den Rückgabewert der Funktion Liste.Add zu. Und dies ist der Index des eingefügten Wertes, also ein Integer, denn die markierten Zeilen Deines Quelltextes ergeben:

Delphi-Quellcode:

Liste := Liste.Add(s1);

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

[mkinzler]

Das auch, aber der Fehler ist in hier:

Delphi-Quellcode:

Liste:=
    Liste.Add(s1);

Liste.Add gibt den Index des neu hinzugefügten Eintrages zurück ( ein Integer) welchen Du dann der Liste zuweisen willst.

[pmros]

Zitat:

Zitat von BadenPower (Beitrag 1315357)

Du weist der Stringliste mit dem Namen "Liste" den Rückgabewert der Funktion Liste.Add zu. Und dies ist der Index des eingefügten Wertes, also ein Integer, denn die markierten Zeilen Deines Quelltextes ergeben:

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

Gnah, natürlich. Übersehen. Vielen Dank. Und ja, doch. Es funktioniert jetzt. Ich kann die Stringliste übergeben.

[nahpets]

Auch wenn ich nicht weiß, ob mein Vorschlag auch nur ansatzweise sinnvoll erscheinen könnte, vermutlich hätte ich es so gemacht:

Delphi-Quellcode:

function commands (request:string):TStringList; stdcall;
begin
Result := TStringList.Create;
Result.Add('H');
Result.Add('G0');
Result.Add('G1');
end;

Was soll denn hier passieren?

Delphi-Quellcode:

Liste:=
    Liste.Add(s1);

Add ist eine Methode von Liste, aber die weist man doch nicht bei dem Aufruf gleichzeitig wieder der Liste zu?

Auch dashier verstehe ich nicht:

Delphi-Quellcode:

result:=Liste;

mit einem

Delphi-Quellcode:

result.AddStrings(Liste);

und dem dann zwingend folgende

Delphi-Quellcode:

Liste.Free

könnte ich ja noch leben.

[Luckie]

Zitat:

Zitat von BadenPower (Beitrag 1315357)

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

Ich als Visionär sehe nur das große Ganze. :mrgreen:

[Luckie]

Zitat:

Zitat von pmros (Beitrag 1315359)

Ich kann die Stringliste übergeben.

Das dürfte aber nur gehen, wenn du die Sharemem.dll einbindest.

[nahpets]

Wann, und wie, wenn überhaupt, wird die Stringliste denn wieder freigegeben?

[BadenPower]

Zitat:

Zitat von Luckie (Beitrag 1315361)

Zitat:

Zitat von BadenPower (Beitrag 1315357)

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

Ich als Visionär sehe nur das große Ganze. :mrgreen:

Dafür war ich mal schneller als mkinzler.

Aber auch der Einwand von nahpets hat seine Berechtigung und sollte berücksichtigt werden.