[leon2009]

Здравствуйте! var text:='0123456789aaabbbccc'; Текст строка, знаю что 100 символов. как передать значение в str:string по 2 символа.
пр: в memo = 01 потом 23 потом 45 и.т.д пока строка (текст) не закончится
если можно ПОЖАЛУЙСТА не надо через FOR
Можно пару примерчиков

Код:

Result := MemoryStream.DataString;
until Result <= 0;

[leon2009]

или я прошу из ряда фантастики?

[Vladimr]

Код:

const dl=5; //длина передаваемой строки за раз

while length(text)>dl do
begin
s1:=copy(text,1,dl); //считывание символов
memo1.lines.add(s1); //вывод символов
delete(text,1,dl); //удаление
end;

memo1.lines.add(text); //вывод оставшихся символов

[leon2009]

результат:

Memo1
01
23
45
67
89
aa
ab
bb
cc
c

text:='0123456789aaabbbccc';
а нужно

Memo1
11111
22222
33333
44444
55555
66666
77777
88888

result:=11111 22222 33333 44444 55555 66666 77777 88888
как файл загружаешь не сразу а блоками так же и текстовую строку поделить на 5 символов и выводить по 5 символов из 100.
а здесь код сразу все выдал.

[leon2009]

пример
если text=
11111aa
22222bb
33333cc
44444dd
то в коде выше
вывод будет
Memo1

11111
aa 22
222bb
3333
3cc 4
4444d
d

а если не обрезать и оставить
как есть

11111aa
22222bb
33333cc
44444dd

только перенести не сразу текст а постепенно сначала:
11111aa
потом
22222bb потом
33333cc потом
44444dd

[leon2009]

Код:

len:=length(text);

     while len>dl do begin
      s1:=copy(text,3,dl);
      //for i:=0 to len do begin
      memo1.Lines.add(s1);
      delete(text,3,dl);
    end;
      memo1.Lines.add(text);
     end;

если

text:=1111111
2222222
3333333
4444444
5555555
6666666
7777777
8888888
9999999
0100101

и const dl=8;
все отлично! т.к символов в строку влазит, но если const dl=5; а это значит что символы в одной строке не влезли не хватает еще 3, то result начинает просто прокручивать до бесконечности.

[leon2009]

Не справляюсь
результат:

aaaaaaa
0100101
b

текст =

1111111
2222222
3333333
4444444
5555555
6666666
7777777
8888888
9999999
aaaaaaa
0100101
bbbbbbb

Код:

function LoadFile(const FileName: TFileName):string;
var
  MemStr: TStringStream; text,s1:string;
begin
  MemStr:= TStringStream.Create;
  try
    MemStr.LoadFromFile(FileName);
    //Result := MemStr.DataString;
    text:=MemStr.DataString;
    while length(text)>20 do begin
      s1:=copy(text,1,20);
      result:=s1;
      delete(text,1,20);
    end;
 finally
    MemStr.Free;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//LoadFile('test.txt');
memo1.Lines.Text:=(LoadFile('test.txt'));
end;

[Kailon]

Сообщение от leon2009

Здравствуйте! var text:='0123456789aaabbbccc'; Текст строка, знаю что 100 символов. как передать значение в str:string по 2 символа.
пр: в memo = 01 потом 23 потом 45 и.т.д пока строка (текст) не закончится
если можно ПОЖАЛУЙСТА не надо через FOR

Задача простая. По 2 символа выводить в Memo пока не закончится строка. Вроде всё понятно. НО! Что начинается дальше?
Вот здесь Ваше решение не соответствует Вашему же заданию

Сообщение от leon2009

text:='0123456789aaabbbccc';
а нужно
Memo1
11111
22222
33333
44444
55555
66666
77777
88888
result:=11111 22222 33333 44444 55555 66666 77777 88888
как файл загружаешь не сразу а блоками так же и текстовую строку поделить на 5 символов и выводить по 5 символов из 100.
а здесь код сразу все выдал.

Если известно, что строка 100 символов, то по 5 символов поровну делится вся строка, а вот если по 8, то уже нет. Куда остаток? Так по сколько символов выводить? И как понимать "выводить по 5 символов"? По запросу? По таймеру?
Функция, что Вам предложили, за каждый проход будет отрезать 5 символов и выводить их пока не закончится строка. Если же необходимо выводить блоками, то их нужно где-то накапливать, например в массиве.

[lmikle]

Для начала, я думаю ты "наступаешь" на переводы строк. Их надо вырезать до начала раздела строки, иначе они тебе весь вывод поломают.

Код:

const
  wLen : Integer = 5; // сколько символов за раз вырезать
var
  Src : String;
  Idx : Integer;
begin
  Src := '...'; // исходная строка
  Src := StringReplace(Src, #13, '',[rfReplaceAll]);
  Src := StringReplace(Src, #10, '',[rfReplaceAll]);
  Idx := 1;
  While Idx < Length(Src) Do
    Begin
      Memo1.Lines.Add(Copy(Src,Idx,wLen));
      Inc(Idx,wLen);
    End;
End;

Ну вот как-то так, должно работать.

[leon2009]

Спасибо!

function Reset(Rdx:string):string;
const
wLen : Integer = 5;
var
Src: String;
Idx : Integer;
begin
Src := Rdx; // исходная строка
Src := StringReplace(Src, #13, '',[rfReplaceAll]);
Src := StringReplace(Src, #10, '',[rfReplaceAll]);
Idx := 1;
While Idx < Length(Src) Do
Begin
result:=Copy(Src,Idx,wLen);
Inc(Idx,wLen);
End;
end;

функции изучаем = Спасибо! правда, я не знал, что так много времени 100 000 срок будет передавать Inc(Idx,wLen);, было 800 000

[Vladimr]

Сообщение от lmikle

While Idx < Length(Src) Do

Если Length(Src)=Idx, то ничего не выведется.
поэтому после цикла while надо будет добавить проверку

Код:

if Idx=Length(Src) then Memo1.Lines.Add(Copy(Src,Idx,wLen)); 

Например Src='a', и Idx=1 то условие while не выполниться и строка не выведется.

[Vladimr]

Сообщение от leon2009

Код:

function Reset(Rdx:string):string;

если это делать через функцию, то вернется только последние символы.

К примеру Rdx='01234567890qwertyuiop[]asdfghjkl;'zxcvbnm,./'; то на выходе ты получишь только 'm,./', а все остальное пропадет.

[leon2009]

все отлично работает
проверил и так и через функцию.
долго, но работает! через Memo и функцию.
RichEdit ставил , НО он как накопитель, сначала накопит, а потом все вываливает... а в мемо видны движение...

[lmikle]

Сообщение от leon2009

все отлично работает
проверил и так и через функцию.
долго, но работает! через Memo и функцию.
RichEdit ставил , НО он как накопитель, сначала накопит, а потом все вываливает... а в мемо видны движение...

Тут в другом дело.
Видимо не успевают проходить сообщения об обновлении интерфейса. Что бы проходили, надо добавить Application.ProcessMessages в тело цикла. Но это еще более замедлит работу.

ЗЫ. Кстати, а нафига оно такое тебе надо? Просто добавление в визульный компонент явно тормозит выполнение...