Skip to main content
se eliminaron 59 caracteres en el cuerpo
Origen Enlace
GBM
  • 71
  • 8

En Delphi Tokio para Linux, cuáles son los tipos equivalentes de:

  • ShortString
  • AnsiChar
  • AnsiString

Envío este bloque de código para mostrar como funcionan estos tipos para Windows pero para Linux no:

introducir el código aquí  program Project1;

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils;

Var Ch1 : Char; SStr1 : String; AStr1 : String; {$IFNDEF LINUX} Ch2 : AnsiChar; SStr2 : ShortString; AStr2 : AnsiString; {$ENDIF} Ch3 : UTF8Char; SStr3 : String; AStr3 : UTF8String; begin try { TODO -oUser -cConsole Main : Insert code here } Ch1:= 'A'; SStr1:='AaBbCcD'; AStr1:='1234567'; WriteLn('"',Ch1,'"-"',SStr1,'"-"',AStr1,'"'); {$IFNDEF LINUX} Ch2:= 'A'; SStr2:='AaBbCcD'; AStr2:='1234567'; WriteLn('"',Ch2,'"-"',SStr2,'"-"',AStr2,'"'); {$ELSE} WriteLn('En Delphi Linux no se cuenta con los tipos Ansichar, ShortString y AnsiString'); WriteLn('Cuáles son los tipos equivalentes?'); {$ENDIF} Ch3:= 'A'; SStr3:='AaBbCcD'; AStr3:='1234567'; WriteLn('"',Ch3,'"-"',SStr3,'"-"',AStr3,'"'); ReadLn; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.

introducir
{$APPTYPE elCONSOLE}

{$R código*.res}

uses
 aquí System.SysUtils;

Var
  Ch1   : Char;
  SStr1 : String;
  AStr1 : String;
{$IFNDEF LINUX}
  Ch2   : AnsiChar;
  SStr2 : ShortString;
  AStr2 : AnsiString;
{$ENDIF}
  Ch3   : UTF8Char;
  SStr3 : String;
  AStr3 : UTF8String;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    Ch1:= 'A'; SStr1:='AaBbCcD'; AStr1:='1234567';
    WriteLn('"',Ch1,'"-"',SStr1,'"-"',AStr1,'"');
{$IFNDEF LINUX}
    Ch2:= 'A'; SStr2:='AaBbCcD'; AStr2:='1234567';
    WriteLn('"',Ch2,'"-"',SStr2,'"-"',AStr2,'"');
{$ELSE}
    WriteLn('En Delphi Linux no se cuenta con los tipos Ansichar, ShortString y AnsiString');
    WriteLn('Cuáles son los tipos equivalentes?');
{$ENDIF}
    Ch3:= 'A'; SStr3:='AaBbCcD'; AStr3:='1234567';
    WriteLn('"',Ch3,'"-"',SStr3,'"-"',AStr3,'"');
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

En Delphi Tokio para Linux, cuáles son los tipos equivalentes de:

  • ShortString
  • AnsiChar
  • AnsiString

Envío este bloque de código para mostrar como funcionan estos tipos para Windows pero para Linux no:

introducir el código aquí

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils;

Var Ch1 : Char; SStr1 : String; AStr1 : String; {$IFNDEF LINUX} Ch2 : AnsiChar; SStr2 : ShortString; AStr2 : AnsiString; {$ENDIF} Ch3 : UTF8Char; SStr3 : String; AStr3 : UTF8String; begin try { TODO -oUser -cConsole Main : Insert code here } Ch1:= 'A'; SStr1:='AaBbCcD'; AStr1:='1234567'; WriteLn('"',Ch1,'"-"',SStr1,'"-"',AStr1,'"'); {$IFNDEF LINUX} Ch2:= 'A'; SStr2:='AaBbCcD'; AStr2:='1234567'; WriteLn('"',Ch2,'"-"',SStr2,'"-"',AStr2,'"'); {$ELSE} WriteLn('En Delphi Linux no se cuenta con los tipos Ansichar, ShortString y AnsiString'); WriteLn('Cuáles son los tipos equivalentes?'); {$ENDIF} Ch3:= 'A'; SStr3:='AaBbCcD'; AStr3:='1234567'; WriteLn('"',Ch3,'"-"',SStr3,'"-"',AStr3,'"'); ReadLn; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.

introducir el código aquí

En Delphi Tokio para Linux, cuáles son los tipos equivalentes de:

  • ShortString
  • AnsiChar
  • AnsiString

Envío este bloque de código para mostrar como funcionan estos tipos para Windows pero para Linux no:

     program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

Var
  Ch1   : Char;
  SStr1 : String;
  AStr1 : String;
{$IFNDEF LINUX}
  Ch2   : AnsiChar;
  SStr2 : ShortString;
  AStr2 : AnsiString;
{$ENDIF}
  Ch3   : UTF8Char;
  SStr3 : String;
  AStr3 : UTF8String;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    Ch1:= 'A'; SStr1:='AaBbCcD'; AStr1:='1234567';
    WriteLn('"',Ch1,'"-"',SStr1,'"-"',AStr1,'"');
{$IFNDEF LINUX}
    Ch2:= 'A'; SStr2:='AaBbCcD'; AStr2:='1234567';
    WriteLn('"',Ch2,'"-"',SStr2,'"-"',AStr2,'"');
{$ELSE}
    WriteLn('En Delphi Linux no se cuenta con los tipos Ansichar, ShortString y AnsiString');
    WriteLn('Cuáles son los tipos equivalentes?');
{$ENDIF}
    Ch3:= 'A'; SStr3:='AaBbCcD'; AStr3:='1234567';
    WriteLn('"',Ch3,'"-"',SStr3,'"-"',AStr3,'"');
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Origen Enlace
GBM
  • 71
  • 8

Tipos ShortString, AnsiChar y AnsiString en Delphi Tokio para Linux

En Delphi Tokio para Linux, cuáles son los tipos equivalentes de:

  • ShortString
  • AnsiChar
  • AnsiString

Envío este bloque de código para mostrar como funcionan estos tipos para Windows pero para Linux no:

introducir el código aquí

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils;

Var Ch1 : Char; SStr1 : String; AStr1 : String; {$IFNDEF LINUX} Ch2 : AnsiChar; SStr2 : ShortString; AStr2 : AnsiString; {$ENDIF} Ch3 : UTF8Char; SStr3 : String; AStr3 : UTF8String; begin try { TODO -oUser -cConsole Main : Insert code here } Ch1:= 'A'; SStr1:='AaBbCcD'; AStr1:='1234567'; WriteLn('"',Ch1,'"-"',SStr1,'"-"',AStr1,'"'); {$IFNDEF LINUX} Ch2:= 'A'; SStr2:='AaBbCcD'; AStr2:='1234567'; WriteLn('"',Ch2,'"-"',SStr2,'"-"',AStr2,'"'); {$ELSE} WriteLn('En Delphi Linux no se cuenta con los tipos Ansichar, ShortString y AnsiString'); WriteLn('Cuáles son los tipos equivalentes?'); {$ENDIF} Ch3:= 'A'; SStr3:='AaBbCcD'; AStr3:='1234567'; WriteLn('"',Ch3,'"-"',SStr3,'"-"',AStr3,'"'); ReadLn; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.

introducir el código aquí