Como paso un Tstring a String

[Antuan]

Como siempre novato total.
Quizas esto sea lo mas facil pero a mi me trae de calle.
Como estoy aprendiendo pues me cojo ejemplos ya resueltos y me los machaco y de vez en cuando me aparecen incoveniente miro la ayuda de Delphi y parece que a mi no me hace caso no veo lo que busco asi que tengo que recurrir al foro, que para mi es donde mas aprendo.
Perdonarme con esta pregunta que a lo mejor es muy tonta pero no la se.
Es una funcion ya hecha de un ejemplo.
Es una funcion con el resultado a TString y yo lo quiero convertir a una variable de String y no lo se.

[dec]

Hola,

Antuan, la clase "TStrings" cuenta con una propiedad de nombre "Text". La misma contiene el texto de todos elementos/items del objeto de tipo "TStrings" de turno: dicha propiedad es de tipo "string". Cualquier otra cosa, ya sabes dónde estamos.

[Antuan]

Esto me lo figuraba pero la compilacion se detiene y me dice Incompatible types. "String' and Tstring
Asi que supongo habra que convertirla de alguna forma ¡No?

[dec]

Hola,

Lo que no puedes hacer es que una función que ha de devolver un resultado de tipo "TStrings" devuelva uno de tipo "string" sin más. Lo que has de hacer es cambiar el tipo de resultado de la función a "string". Una vez en la función, si es que es menester utilizar la clase "TStrings", siempre podrás devolver la propiedad "Text", que es de tipo "string". En todo caso, podrías tratar de que la función en cuestión no trabajara con un "TStrings", sino con "string", directamente. Aquí va un ejemplo.

Código Delphi [-]
 function Operaciones : TStrings;
  var
    temp: TStrings;
  begin
    Result := nil;
    temp := TStringList.Create;
    try
      { Resto de instrucciones }
      Result := temp; 
    finally
      temp.Free;
    end;
  end;

Esa función que devuelve un resultado de tipo "TStrings" podría reconvertirse a algo así para devolver un resultado de tipo "strings":

Código Delphi [-]
 function Operaciones : string;
   var
     temp: TStrings;
   begin
     Result := '';
     temp := TStringList.Create;
     try
       { Resto de instrucciones }
       Result := temp.Text; 
     finally
       temp.Free;
     end;
   end;

Y si acaso pudieras sustituir el tipo "TStrings" y trabajar con "strings" directamente, pues entonces podría quedar algo así, pero esto ya lo sabes:

Código Delphi [-]
 function Operaciones : string;
 var
   temp: string;
   begin
   { Instrucciones }
   Result := temp; 
 end;

[Casimiro Notevi]

Dec lo ha explicado claramente, pero seguramente Antuan no comprende bien la diferencia entre TStrings, string, etc

La clase TString es "abstracta", sirve de base para otras clases, no se usa directamente, por ejemplo, puedes crear un TStringList que hereda de TStrings y usarla entonces, algo así:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
  var
      sLista : TStrings;
  begin
      sLista := TStringList.Create;
  
      sLista.Add('Este es el string 1');
      sLista.Add('Y este es el 2');
  
      ShowMessage( sLista[0] );
      ShowMessage( sLista[1] );
      ShowMessage( sLista.Text );
 
      sLista.Free;
  end;

[Antuan]

Esta es la funcion en concreto:

Código Delphi [-]
uses NB30;

function GetMACAdress: string;
var
  NCB: PNCB;
  Adapter: PAdapterStatus;

  URetCode: PChar;
  RetCode: char;
  I: integer;
  Lenum: PlanaEnum;
  _SystemID: string;
  TMPSTR: string;
begin
  Result    := '';
  _SystemID := '';
  Getmem(NCB, SizeOf(TNCB));
  Fillchar(NCB^, SizeOf(TNCB), 0);

  Getmem(Lenum, SizeOf(TLanaEnum));
  Fillchar(Lenum^, SizeOf(TLanaEnum), 0);

  Getmem(Adapter, SizeOf(TAdapterStatus));
  Fillchar(Adapter^, SizeOf(TAdapterStatus), 0);

  Lenum.Length    := chr(0);
  NCB.ncb_command := chr(NCBENUM);
  NCB.ncb_buffer  := Pointer(Lenum);
  NCB.ncb_length  := SizeOf(Lenum);
  RetCode         := Netbios(NCB);

  i := 0;
  repeat
    Fillchar(NCB^, SizeOf(TNCB), 0);
    Ncb.ncb_command  := chr(NCBRESET);
    Ncb.ncb_lana_num := lenum.lana[i];
    RetCode          := Netbios(Ncb);

    Fillchar(NCB^, SizeOf(TNCB), 0);
    Ncb.ncb_command  := chr(NCBASTAT);
    Ncb.ncb_lana_num := lenum.lana[i];
    // Must be 16
    Ncb.ncb_callname := '*               ';

    Ncb.ncb_buffer := Pointer(Adapter);

    Ncb.ncb_length := SizeOf(TAdapterStatus);
    RetCode        := Netbios(Ncb);
    //---- calc _systemId from mac-address[2-5] XOR mac-address[1]...
    if (RetCode = chr(0)) or (RetCode = chr(6)) then
    begin
      _SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' +
        IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' +
        IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' +
        IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' +
        IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' +
        IntToHex(Ord(Adapter.adapter_address[5]), 2);
    end;
    Inc(i);
  until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00');
  FreeMem(NCB);
  FreeMem(Adapter);
  FreeMem(Lenum);
  GetMacAdress := _SystemID;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := GetMACAdress;
end;

Yo quiero dejar de usar el boton y en resultado del label1.caption ponerlo en una variable de string.

Seria asi como me comentais?????????¡No!

Código Delphi [-]
function NumeroMac : string;
   var
     temp: TStrings;
   begin
     Result := '';
     temp := TStringList.Create;
     try
       temp := GetMACAdress;{ Resto de instrucciones }
       Result := temp.Text; 
     finally
       temp.Free;
     end;
   end;