Consulta: Como eliminar un de un Widestring??

[ungrande87]

Empezado por maeyanes

Hola...

La clase TMemo contiene una propiedad llamada Lines la cual es del tipo TString. Conociendo esto, puedes hacer algo como:

Código Delphi [-]
Memo1.Lines.Delete(2); // Borramos la línea con la palabra Pera

Saludos...

Entiendo lo que me decís amigo, pero igual necesito borrarla del widestring no del Memo.

[[Al González]]

Acabo de ver esto:

Empezado por ungrande87

[...] necesito borrarla del widestring no del Memo.

No estaría mal que ampliaras un poco tu consulta para entender bien lo que estás buscando.

Tienes la opción de usar las funciones nativas para cadenas de caracteres Pos, Delete y quizá Length. O también usar una lista de cadenas temporal:

Código Delphi [-]
Var
  S :WideString;
begin
  S := Memo1.Text;  // Asignamos el texto de Memo1 a la variable S

  With TStringList.Create Do  // Creamos una lista de cadenas auxiliar
    Try
      Text := S;  // Asignamos el texto de S a la lista de cadenas auxiliar
      Delete (2);  // Eliminamos de la lista auxiliar la tercera línea
      S := Text;  // Asignamos el texto resultante a la variable S
    Finally
      Free;  // Destruimos la lista auxiliar
    End;

  ShowMessage (S);  // Mostramos el resultado de la variable S

Saludos.

P.D. No es un trabajo escolar, ¿verdad?

[[nlsgarcia]]

ungrande87,

Empezado por ungrande87

Estoy trabajando con Delphi 7 y quería saber como eliminar un renglón de un widestring.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Elimina una palabra del texto de entrada.
function DeleteWord(Word : string; ListWord : WideString) : string;
var
   StrList : TStringList;
   i : Integer;
begin
   StrList := TStringList.Create;
   StrList.Text := ListWord;
   for i := StrList.Count-1 downto 0 do
      if StrList[i] = Word then
         StrList.Delete(i);
   Result := StrList.Text;
   StrList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   AuxStr : WideString;
begin
   AuxStr := Memo1.Text;
   AuxStr := DeleteWord(Memo1.SelText,AuxStr);
   ShowMessage(AuxStr);
   Memo1.SelLength := 0;
end;

end.

El código anterior asigna el texto de un control TMemo a una variable de tipo WideString y por medio de la función DeleteWord elimina un texto seleccionado en la variable mencionada.

Nota: En la función DeleteWord la variable Word representa una línea del control TMemo formada por una o más palabras.

Espero sea útil

Nelson.