Objeto TStringManager

Objeto TStringManager

Olá a todos

Nas próximas semanas estarei postando no dicas4lazarus alguns objetos/classes desenvolvidos por mim.

São objetos simples, que eu escrevi para automatizar algumas tarefas realizadas diariamente.

No exemplo de hoje, veremos o TStringManager.

Descrição

O TStringManager é apenas um TStringlist com algumas funções especiais que eventualmente utilizamos para facilitar certas tarefas como adicionar conteudo a um arquivo ja existente, contar as palavras, e salvar no formato unix.

O método SaveToFileEx faz a mesma coisa que o SaveToFile. Porém, em alguns casos, o SaveFile do TStringList não salva no disco e não retorna erro, como no caso em que não tem permissão de escrita no disco. Usando o
SaveToFileEx, se não tiver permissão, retornará um erro.

Utilização

Para usar o TStringManager, basta adicionar ao seu form e utiliza-lo como se fosse um Itens de um TListBox

Métodos

GetWordList(str: String)

Retorna um TStringList com a lista de palavras passada no parametro str.  Use esse método em conjunto com a propriedade WordList.

SavetoFileEx(strfilename: String)

Identico ao Savetofile, porem retorna erro em caso de falhas.

AppendToFile(strfilename: String)

Salva o texto em um arquivo já existente, adicionando no final do arquivo informado em strfilename.

ConvertToUnix(SourceFile, TargetFile: String)

Função para converter um arquivo do formato windows para o linux.

Propriedades

WordList

Contem a lista de palavras criada pelo método GetWordList.

Items

Manipulador do TStringList.

Exemplo de uso:

var
Str1:TStringManager;
npalavras:Integer;
nlinhas:Integer;
begin
Str1:TStringManager.Create(self);

Str1.Items.Add('Exemplo simples de como utilizar o TStringManager');
Str1.Items.Add('Veremos como salvar o texto em um arquivo');
Str1.Items.Add('E tambem como adicionar o texto em um arquivo ja existente');
 Str1.Items.Add('Quantas palavras tem o texto? chame GetWordList(seu texto) ');


npalavras:=0;
for nlinhas:=0 to Str1.Items.count-1 do
Begin
     GetWordList(Str1.Items[nlinhas]);
     npalavras:=npalavras+ WordList.count;
end;

ShowMessage('O texto contem '+inttostr(npalavras)+' palavras');


//Salvando em um novo arquivo
Str1.SavetoFileEx('exemplo.txt');

Str1.Items.Add('Texto adicionado em arquivo ja existente');

//Salvando em um arquivo ja existente (append)
//No exemplo, irá adicionar o mesmo texto 3 vezes no arquivo exemplo.txt
Str1.AppendtoFile('exemplo.txt');
Str1.AppendtoFile('exemplo.txt');
Str1.AppendtoFile('exemplo.txt');


Str1.free;


end;


Segue abaixo o codigo fonte. Espero que seja util.

Até a próxima.



Codigo fonte


type
  TStringManager = class(TComponent)
  private
    Fwordlist: TStrings;
    FItems: TStrings;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure GetWordList(str: String);
    procedure SavetoFileEx(strfilename: String);
    procedure AppendToFile(strfilename: String);
    procedure setItems(Value: TStrings);
    procedure ConvertToUnix(SourceFile, TargetFile: String);

  protected
  published
    property WordList: TStrings Read FWordlist;
    property Items: TStrings Read FItems Write setItems;
  end;

constructor TStringManager.Create(AOwner: TComponent);
begin
  inherited;
  FWordList := TStringList.Create;
  FItems := TStringList.Create;
end;

destructor TStringManager.Destroy;
begin
  inherited;
end;

procedure TStringManager.getwordlist(str: string);
var
  Count: integer;
  i: integer;
  len: integer;
  s1: string;
begin
  s1 := '';
  FWordList.Clear;
  len := length(str);
  Count := 0;
  i := 1;
  while i <= len do
  begin
    while ((i <= len) and ((str[i] = #32) or (str[i] = #9) or (Str[i] = ';'))) do
      Inc(i);
    if i <= len then
      Inc(Count);
    while ((i <= len) and ((str[i] <> #32) and (str[i] <> #9) and (Str[i] <> ';'))) do
    begin
      s1 := s1 + str[i];
      Inc(i);
    end;
    if s1 <> '' then
      FWordList.Add(s1);
    s1 := '';
  end;

end;

procedure TStringManager.ConvertToUnix(SourceFile, TargetFile: string);
var
  SAIDA: TFileStream;
  Buffer: array[0..1] of char;
  Entrada: TFileStream;
  Lidos: integer;
begin
  Entrada := TFileStream.Create(SourceFile, fmOpenRead);
  SAIDA := TFileStream.Create(TargetFile, fmCreate);
  repeat
    Lidos := Entrada.Read(Buffer, 1);
    if Buffer[0] = ''#13'' then
      Continue;
    SAIDA.Write(Buffer, Lidos);
  until Lidos = 0;
  Entrada.Free;
  SAIDA.Free;
end;

procedure TStringManager.AppendToFile(strfilename: String);
var
  FTextFile: TextFile;
  x: integer;
begin
  try
  AssignFile(FTextFile, strfilename);
  Append(FTextFile);
  for x := 0 to FItems.Count - 1 do writeln(FTextFile, FItems[x]);
  except
  Showmessage('Problemas ao escrever em '+strfilename);
  end;
  CloseFile(FTextFile);

end;

procedure TStringManager.SavetoFileEx(strfilename: string);
var
  FTextFile: TextFile;
  x: integer;
begin
  try
  AssignFile(FTextFile, strfilename);
  rewrite(FTextFile);
  for x := 0 to FItems.Count - 1 do
    writeln(FTextFile, FItems[x]);
  except
  Showmessage('Problemas ao escrever em '+strfilename);
  end;
  CloseFile(FTextFile);
end;

procedure TStringManager.setItems(Value: TStrings);
begin
  if Items.Text <> Value.Text then
  begin
    Items.BeginUpdate;
    try
      Items.Assign(Value);
    finally
      Items.EndUpdate;
    end;
  end;

end;