¿Cómo cortar cadenas en Delphi 7?

[[nlsgarcia]]

CM6ISG,

Empezado por CM6ISG

...cuando fui a implementarlo entre las propiedades y funciones del ComPort que tengo no encuentro (Output_CportLib)...Use ComPort1.ReadStr, que la que he probado y me funciona...

Empezado por CM6ISG

...A la hora de compilar me da el siguiente error : Project Catsimulado.exe raised exception class EStringListError with message ‘List index out bounds (1)’. Process stopped. Use Step or run to continue...

Te comento:

1- Output_CportLib es una constante creada para simular la lectura de un Puerto Serial, no forma parte de la librería ComPort Library.

2- Para resolver el error List index out bounds, te sugiero hacer un debug de tu aplicación y seguir las indicaciones del Msg #7.

Espero sea útil

Nelson.

[CM6ISG]

Saludos, disculpen por la demora en responder, es que he estado corto de tiempo.

bueno hise las prueba que me recomendaron ya que no logro que me funcione, aclaro que tampoco so muy esperto en programacion y estoy muy agradecido de ustedes por su efuerso

aqui va el codio que tengo montado ahora y debajo adjunto foto de los resultado espero que me puedan ayudar en esto Gracias una ves mas...

Código Delphi [-]
unit simulacion;
 interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, CPort;

  type 
 TForm1 = class(TForm)  
 Memo1: TMemo;
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 Edit4: TEdit;
 Edit5: TEdit;  
 Edit6: TEdit;  
 Label1: TLabel;   
 Label2: TLabel; 
 Label3: TLabel;  
 Label4: TLabel;
 Label5: TLabel; 
 Label6: TLabel;  
 Label7: TLabel;   
 Button1: TButton;    
 ComPort1: TComPort;    
 procedure ComPort1RxChar(Sender: TObject; Count: Integer);   
 private     { Private declarations }   
 public     { Public declarations }   
 end;  
 var  

 Form1: TForm1;  
 implementation  
{$R *.dfm}  

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);   

var    
StrList: TStringList; 
Power, Qsl, Cadena, Modo, FTX, FTR, Str : String;  

begin    
ComPort1.ReadStr(Str, Count);   
Cadena:= cadena + Str;    
Memo1.Text:= Str;    
Edit1.Text:= edit1.Text + cadena;
StrList := TStringList.Create;
ExtractStrings(['#'], [ ], PChar(Str), StrList);
ShowMessage(StrList.Text); 


 {Power := StrList[0];
  Qsl := StrList[1];   
  Modo := StrList[2];   
  FTX := Copy(StrList[3],3,Length(StrList[3])); 
  FTR := Copy(StrList[4],3,Length(StrList[4]));    
  Memo1.Text := Str;    
  Edit1.Text := Str;     
  Edit2.Text := Power;    
  Edit3.Text := Qsl;    
  Edit4.Text := Modo;    
  Edit5.Text := FTX;    
  Edit6.Text := FTR; }     
  StrList.Free;    

end;  
end.