Sequencias em Delphi, esta � muito dificil

Question

Ol�, estou tentando fazer o seguinte.Tenho um arquivo TXT no seguinte formato:01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 01 02 03 04 05 06 07 08 09 10 11 12 13 14 16 01 02 03 04 05 06 07 08 09 10 11...

Thiago Vidal · Answer

To num computador sem Delphi mas acho que posso te ajudar.

Vamos ver:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, iNum: Integer;
  sNum: string;
  Lines: TStrings
begin
  Lines := TStringList.Create;
  with Lines do
    try
      LoadFromFile(�c:\arquivo1.txt�);
      iNum := StrToInt(Edit1.Text); // Le o numero do Edit.
      sNum := IntToStr(iNum); // Volta para o formato string;
      if iNum < 10 then sNum := �0� + sNum; // Adiciona o zero na frente
      for i := 0 to Pred(Count) do begin
        if Pos(#32+sNum+32,Strings[i]) > 0 then
          Del(i);
      end;
    finally
      Lines.SaveToFile(�c:\arquivo2.txt�);
      FreeAndNil(Lines);
    end;
end;

Como eu disse, to num computador sem delphi e nao tenho como testar o codigo, mas acho que o principio eh este. qualquer coisa me envie um email.

Este codigo pode ser adaptado para uso em qualquer componente que armazene dados em StringLists, como TMemo ou TListBox. Entao com pequenos ajustes voce pode adaptar o codigo ao seu gosto.