Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Строки 
:(
    Опции темы
MrDmitry
Дата 21.7.2010, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Парни помогите, встал на казалось бы элементарной вещи ((

Есть строка вида
Цитата

   3авыа ыаыв 34     пваыпвап  вапвапвап      пвапвапвапвап   павпва   
 

Попрошу заметить что в конце строки тоже пробелы

Нужно удалить пробелы. Но удалить только если их подряд 2 и более. Полученные строки занести в таблицу
тоесть если учитывать выше описанную строку то в итоге должно получится так

Цитата

1 строка: 3авыа ыаыв 34
2 строка: пваыпвап
3 строка: вапвапвап
4 строка: пвапвапвапвап
5 строка: павпва 


я пытаюсь сделать так

    
Код

while position_dop>1
     do
      begin
         position_dop:=Pos('   ',str);
        if position_dop>0 then
         begin
          delet:=Copy(str,position_dop,Length(str));
          Delete(str,position_dop,Length(str));
          inc(grid_rows);
          stringGrid.Cells[0,grid_rows]:='Таблица:';
          stringGrid.Cells[1,grid_rows]:=str;
          str:=delet;
         end
        else
        begin
         position_dop:=0;
        end;


На сколько я предполагал все должно было работать так. Запускается цикл. Ищется строка в 3 пробела. копируется в переменную delet удаляется все что следует после этих пробелов. наращивается и добавляется в strin grid и так до тех пор пока не не будет найдена позиция 3 пробелов подряд. Но я глубоко ошибался (((

Как быть? 
PM MAIL   Вверх
Keeper89
Дата 21.7.2010, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Вот такой вариант:
Код

procedure TForm1.btn1Click(Sender: TObject);
const
  DOUBLE_SPACE = '  ';
var
  myStr: string;
  doubleSpacePos: Integer;
begin

  myStr := Trim('3авыа ыаыв 34     пваыпвап  вапвапвап      пвапвапвапвап   павпва                     ');

  doubleSpacePos := Pos(DOUBLE_SPACE, myStr);
  while doubleSpacePos <> 0 do
  begin

    while myStr[doubleSpacePos] = ' ' do
      Delete(myStr, doubleSpacePos, 1);
    Insert(sLineBreak, myStr, doubleSpacePos);

    doubleSpacePos := Pos(DOUBLE_SPACE, myStr);
  end;

  with TStringList.Create do
    try
      Text := myStr;
      ShowMessage(Text);
    finally
      Free;
    end;
end;


Вариант 2:
Код

procedure TForm1.btn1Click(Sender: TObject);
const
  TRIPLE_SPACE = '   ';
  DOUBLE_SPACE = '  ';
var
  myStr: string;
begin

  myStr := Trim('3авыа ыаыв 34     пваыпвап  вапвапвап      пвапвапвапвап   павпва                     ');

  while Pos(TRIPLE_SPACE, myStr) <> 0 do
    myStr := StringReplace(myStr, TRIPLE_SPACE, DOUBLE_SPACE, [rfReplaceAll]);
  myStr := StringReplace(myStr, DOUBLE_SPACE, sLineBreak, [rfReplaceAll]);

  with TStringList.Create do
    try
      Text := myStr;
      ShowMessage(Text);
    finally
      Free;
    end;
end;


Это сообщение отредактировал(а) Keeper89 - 21.7.2010, 19:56


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
MrDmitry
Дата 21.7.2010, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
А как эти данные теперь добавить в StringGrid? ))
PM MAIL   Вверх
Keeper89
Дата 21.7.2010, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
MrDmitry, для TStringList можно присвоить как
Код

StringGrid1.Cols[0].Assign(myStringList);



--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
MrDmitry
Дата 22.7.2010, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Блин, сорри, все равно не понел как присвоить полученные данные в stringgrid ((((
PM MAIL   Вверх
Демо
Дата 22.7.2010, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50
Код

while Pos('  ',Text)>0 do Text:=AnsiReplaceStr(Text,'  ',' ');


Добавлено через 1 минуту и 40 секунд
Цитата(MrDmitry @  22.7.2010,  14:23 Найти цитируемый пост)
Блин, сорри, все равно не понел как присвоить полученные данные в stringgrid ((((


Ты сначала разберись - по какому алгоритму будешь строку делить на несколько строк.


--------------------
    
PM MAIL ICQ Skype   Вверх
MrDmitry
Дата 22.7.2010, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Вот по этому:

Код

Procedure TForm1.btn1Click(Sender: TObject);
const
  DOUBLE_SPACE = '  ';
var
  myStr: string;
  doubleSpacePos: Integer;
begin
  myStr := Trim('3авыа ыаыв 34     пваыпвап  вапвапвап      пвапвапвапвап   павпва                     ');
  doubleSpacePos := Pos(DOUBLE_SPACE, myStr);
  while doubleSpacePos <> 0 do
  begin
    while myStr[doubleSpacePos] = ' ' do
      Delete(myStr, doubleSpacePos, 1);
    Insert(sLineBreak, myStr, doubleSpacePos);
    doubleSpacePos := Pos(DOUBLE_SPACE, myStr);
  end;
  with TStringList.Create do
    try
      Text := myStr;
      ShowMessage(Text);
    finally
      Free;
    end;
end;
PM MAIL   Вверх
MrDmitry
Дата 24.7.2010, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Ну поможите кто нить (
PM MAIL   Вверх
Keeper89
Дата 24.7.2010, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58
Чем помочь?
Код

Procedure TForm1.btn1Click(Sender: TObject);
const
  DOUBLE_SPACE = '  ';
var
  myStr: string;
  doubleSpacePos: Integer;
  slColumn: TStringList;
begin
  myStr := Trim('3авыа ыаыв 34     пваыпвап  вапвапвап      пвапвапвапвап   павпва                     ');
  doubleSpacePos := Pos(DOUBLE_SPACE, myStr);
  while doubleSpacePos <> 0 do
  begin
    while myStr[doubleSpacePos] = ' ' do
      Delete(myStr, doubleSpacePos, 1);
    Insert(sLineBreak, myStr, doubleSpacePos);
    doubleSpacePos := Pos(DOUBLE_SPACE, myStr);
  end;
  
  slColumn := TStringList.Create;
  try
    Text := myStr;
    StringGrid1.Cols[0].Assign(slColumn);
  finally
    FreeAndNil(slColumn);
  end;
end;



Это сообщение отредактировал(а) Keeper89 - 24.7.2010, 16:06


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
MrDmitry
Дата 26.7.2010, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
ну делаю вот так:
Код

      position_dop := Pos('  ', Str);
  while position_dop <> 0 do
  begin
    while Str[position_dop] = ' ' do
     Delete(Str, position_dop, 1);
    Insert(sLineBreak, Str, position_dop);
    position_dop := Pos('  ', Str);
  end;

  slColumn := TStringList.Create;
  try
    text:=str;
    Zayvki_string.Cols[0].Assign(slColumn);
  finally
    FreeAndNil(slColumn);
  end;

в итоге в StrinGrid ни чего не добавляется ((
PM MAIL   Вверх
Dom
Дата 26.7.2010, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 121
Регистрация: 7.8.2005

Репутация: 3
Всего: 4
Код

  slColumn := TStringList.Create;
  try
    text:=str;
    Zayvki_string.Cols[0].Assign(slColumn);
  finally
    FreeAndNil(slColumn);
  end;


Сперва стоило бы стринглисту присвоить какие-то значения. Весь тред не читал, возможно в третьей строке имелось в виду следующее:

Код

slColumn.text:=str;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1006 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.