I have the following code:
procedure TDM_Maquinas.IBQCons_MaquinasCOD_LINHAGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
Text := Sender.AsString;
if Text <> '' then
begin
case Text[1] of
'1' : Text := 'Linha 1';
'2' : Text := 'Linha 2';
'3' : Text := 'Linha 3';
'4' : Text := 'Linha 4';
'101' : Text := 'Recebimento 1'; //aqui da erro
'102' : Text := 'Recebimento 2'; //aqui da erro
'201' : Text := 'Expedição 1'; //aqui da erro
'202' : Text := 'Expedição 2'; //aqui da erro
'203' : Text := 'Expedição 3'; //aqui da erro
end;
end;
end;
error:
E2010 Incompatible types: 'Char' and 'string'
How do I resolve?