wie kann einFunktions-Rückgabewert im Text angezeigt werden?

[juergen]

Hallo zusammmen,
ich weiß nicht so recht wonach ich suchen soll/muss :oops:
Ich habe eine Funktion, welche einen String-Rückgabewert hat. (Programmversion)
Diesen Wert möchte ich zusätzlich zu einem Text anzeigen lassen, aber wie???

Zum Verständnis:

Delphi-Quellcode:

procedure TmyProg.ButtonClick(Sender: TObject);
begin
ShellExecute(myProg.Handle,
            'open',
'mailto:xxx.de'+'?subject=Email aus myPro generiert- ' + '*****und hier sollte zusätzlich das Ergebnis meiner Funktion stehen*****' + '&body=Hallo!',
            nil,
            nil,
            SW_SHOWNORMAL);
end;

Danke schonmal vorab!

[tomsel]

Delphi-Quellcode:

procedure TmyProg.ButtonClick(Sender: TObject);
begin
ShellExecute(myProg.Handle,
            'open',
'mailto:xxx.de'+'?subject=Email aus myPro generiert- ' + MeineFunktion + '&body=Hallo!',
            nil,
            nil,
            SW_SHOWNORMAL);
end;

[ibp]

Delphi-Quellcode:

function meinefunktion:string;
begin
  result:='*****und hier sollte zusätzlich das Ergebnis meiner Funktion stehen*****';
end;
procedure TmyProg.ButtonClick(Sender: TObject); 
begin 
ShellExecute(myProg.Handle, 
            'open', 
'mailto:xxx.de'+'?subject=Email aus myPro generiert- ' +meinefunktion+ '&body=Hallo!', 
            nil, 
            nil, 
            SW_SHOWNORMAL); 
end;

[juergen]

Hallo Tomsel,
dann bekomme ich diese Fehlermeldung:

Zitat:

[Pascal Error] rechner.pas(1835): E2010 Incompatible types: 'string' and 'PAnsiChar'

[tomsel]

Ah ja. Benutze eine Stringvariable. Weise dieser den Ganzen Text zu und übergebe diese mit pchar() an ShellExecute.

[juergen]

also, ich bekomms net hin...
Ich hab jetzt komplett ein Brett vorm Kopf :wall:
Ich bekomme der Variable "Programmversionsanzeige" nicht den Wert der Funktion "ProgrammVersion" zugewiesen...(siehe Fehler von Delphi im Kommentar des 2.Code-Blocks..)

hier mal meine funktion:

Delphi-Quellcode:

function ProgrammVersion : string;

const
   InfoNum = 1;
   InfoStr : array[1..InfoNum] of string = ('FileVersion');
var
   S: string;
   n, Len, i: DWORD;
   Buf: PChar;
   Value: PChar;
begin
   S := Application.ExeName;
   n := GetFileVersionInfoSize(PChar(S), n);
   if n > 0 then
   begin

     Buf := AllocMem(n);
     GetFileVersionInfo(PChar(S), 0, n, Buf);
     for i := 1 to InfoNum do
       if VerQueryValue(Buf, PChar('StringFileInfo\040704E4\' + InfoStr[i]), Pointer(Value), Len) then
          result := result + Value;
     FreeMem(Buf, n);
   end;
end;

wenn ich dann eine Variable vom Typ "String" anlege kann ich dieser den Wert der Funktion nicht zuweisen...

Delphi-Quellcode:

procedure TmyProg.ButtonClick(Sender: TObject);
var Programmversionsanzeige: String;
begin
Programmversionsanzeige:= (ProgrammVersion);  // hier erscheint Fehler: [Pascal Error] rechner.pas(1831): E2003 Undeclared identifier: 'ProgrammVersion'
ShellExecute(myProg.Handle,
            'open',
'mailto:xxx.de'+'?subject=Email aus myPro generiert-- ' + 'pchar(Programmversion)' + '&body=Hallo!',
            nil,
            nil,
            SW_SHOWNORMAL);

[3_of_8]

Nein. Nicht 'pchar(Bla)'. Dann hast du einen String, der 'pchar(Bla)' enthält.

Es muss heißen pchar(Bla) ohne die ' Dinger.

[tomsel]

So ungefähr:

Delphi-Quellcode:

procedure TmyProg.ButtonClick(Sender: TObject);
var sCommandline:string;
begin

sCommandline := 'mailto:xxx.de'+'?subject=Email aus myPro generiert- ' + 
                 Programmversion + 
                '&body=Hallo!';

ShellExecute(
    myProg.Handle,
    'open',
    pchar(sCommandline),
    nil,
    nil,
    SW_SHOWNORMAL
);
end;

[juergen]

Hallo Tomsel,

Delphi erkennt an dieser Stelle einfach meine Funktion "ProgrammVersion" nicht mehr....

Delphi-Quellcode:

sCommandline := 'mailto:xxx.de'+'?subject=Email aus myPro generiert- ' +
                 Programmversion +  //hier wird die Funktion gar nicht mehr erkannt...
                '&body=Hallo!';

Es kommt dort wo die Funktion aufgerufen wird wieder:
[Pascal Error] rechner.pas(1831): E2003 Undeclared identifier: 'Programmversion'

Gruß Jürgen

[tomsel]

- ist die Unit, in der sich die Funktion befindet, eingebunden?
- wird die Funktion in ihrer Unit im Interface-Abschnitt aufgeführt?