Cita:
Empezado por maeyanes
Hola...
¿Te da algún error? ¿Cuál? Ponlo aquí para que te podamos ayudar mejor...
Saludos...
|
Aqui va el codigo q tengo puesto... me imagino q sea algun error de concepto.
Código Delphi
[-]
type
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
TForm1 = class(TForm)
ComPort: TComPort;
Memo: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ComPortRxChar(Sender: TObject; Count: Integer);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Flags: TReplaceFlags;
str,cadena: string;
begin
ComPort.ReadStr(cadena, Count);
str:= StringReplace(cadena, '#13', '', Flags);
ShowMessage(Str);
Memo.Text := Memo.Text + Str;
end;
La cadena en rojo es la q me da el error y me dice Error [50] Incompatible types
Mil gracias de antemano