}}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 6ffe9b59 Код загружен: 13 мая 2010, 16:10 (Alinka27)

procedure TForm1.LoadGridFromFile(const FileName: string;
  AGrid: TStringGrid);
  var
  Text, Words: TStringList;
  ARow,ACol: Integer;
  begin
  // Загрузка текстового файла в TStringGrid.
  // Разделители - пробелы.

  //Пустые строки игнорируются
  Text:= TStringList.Create();
  Words:= TStrin
  Text:= TStringList.Create();
  Words:= TStringList.Create();
  try
    //me);
 
      // Удаление пустых строк из списка
      {for ARow:= Text.Count - 1 downto 0 
 
      // if Trim(Text[ARow]) = ''
          then Text.Delete(ARow);  }
          except
      Text.Clear();
      Appl
          then Text.Delete(ARow);  }
          except
      Text.Clear();
      Application.MessageBox(PChar('Не могу загрузить файл "' + FileName + '".'),
                             PChar('Ошибка'),
                             MB_OK + MB_ICONERROR);
    end;
 
    if Text.Count =0
      then Exit;
    //  for ARow:= 1 to Text.Count -1 do
      begin
        SeparateWords(Text[ARow], Words);
 
        // Установка кол-ва столбцов по количеству найденных слов в текущей строке
        if Words.Count > AGrid.ColCount
        
      begin
        SeparateWords(Text[ARow], Words);
 
        //таблицы
        AGrid.Rows[ARow].Assign(Words);
      end;
      Edit8.Text:=StringGrid1.Cells[0,0];
 
  finally
    Text.Free();
    Words.Free();
  end;
end;
procedure TForm1.SeparateWords(const S: string; AWords: TStringList);
var
        AGrid.Rows[ARow].Assign(Words);
      end;
      Edit8.Text:=StringGrid1.Cells[0,0];
 
  finally
    Text.Free();
    Words.Free();
  end;
end;
procedure TForm1.SeparateWords(const S: string; AWords: TStringList);
var
  Index: Integer;
  Temp: string;
begin
  //зка ведущих и завершающих пробелов, если они есть
 
      if Temp = ''
        then AWords.Delete(Index)
        else AWords[Index]:= Temp;
    end;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
if OpenDialog2.Execute()
    then LoadGridFromFile(OpenDialog2.FileName, StringGrid1);
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var
si :TStringlist;
i , j:Integer
 
      if Temp = ''
        then AWords.Delete(Index)
        else AWords[Index]:= Temp;
    end;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
if OpenDialog2.Execute()
    then LoadGridFromFile(OpenDialog2.FileName, StringGrid1);
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var
si :TStringlist;
i , j:Integer;
Str:String;
Begin
with TSaveDialog.Create(Owner) do
begin
DefaultExt:='txt';
Filter:= '*.txt|*.txt';
if not Execute then exit;
si:=TStringList.Create;
for i:=1 to StringGrid1.RowCount-1 do
begin
Str := ' ' ;
for j:=0 to StringGrid1.Col

Ссылка на данный код:

На главную страницу сервиса обмена кодом »