Zamiana Char na AnsiChar

procedure Setdata;
var 
    data: Char;
    Temp1:String[6];
begin
  Temp1[X+1]:=Data;     [DCC Error] Editor.pas(521): E2010 Incompatible types: 'AnsiChar' and 'Char'
End

Jak zamienić char na AnsiChar

Zrzutuj sobie po prostu:

Temp1[X+1]:=AnsiChar(Data);

Albo zmień typ

Dzięki zadziałało a myślałęm ze tak już próbowałem.

@piter2004 - spróbuj poniższy kod i zobacz czy działa:

var
  Data: Char;
  Temp: String[6];
begin
  Data := 'ą';
  Temp[1] := AnsiChar(Data);
end;

Nie działa. Wpisuje wartość #5.

Domyślasz się dlaczego? Sprawdź co wypiszą poniższe linijki w konsoli:

WriteLn('Char size:     ', SizeOf(Char));
WriteLn('AnsiChar size: ', SizeOf(AnsiChar));