Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Строки

Автор: MrDmitry 21.7.2010, 18:26

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

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

Цитата

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 пробелов подряд. Но я глубоко ошибался (((

Как быть?

Автор: Keeper89 21.7.2010, 18:54

Вот такой вариант:

Код


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;

Автор: MrDmitry 21.7.2010, 21:14

А как эти данные теперь добавить в StringGrid? ))

Автор: Keeper89 21.7.2010, 23:21

MrDmitry, для TStringList можно присвоить как

Код


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

Автор: MrDmitry 22.7.2010, 14:23

Блин, сорри, все равно не понел как присвоить полученные данные в stringgrid ((((

Автор: Демо 22.7.2010, 16:01

Код


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

Добавлено через 1 минуту и 40 секунд

Цитата(MrDmitry @ 22.7.2010, 14:23

)

Блин, сорри, все равно не понел как присвоить полученные данные в stringgrid ((((

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

Автор: MrDmitry 22.7.2010, 16:13

Вот по этому:

Код


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;

Автор: MrDmitry 24.7.2010, 14:36

Ну поможите кто нить (

Автор: Keeper89 24.7.2010, 16:06

Чем помочь?

Код


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;

Автор: MrDmitry 26.7.2010, 13:11

ну делаю вот так:

Код


      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 ни чего не добавляется ((

Автор: Dom 26.7.2010, 18:31

Код


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

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

Код


slColumn.text:=str;