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.