[leon2009]

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

Код:

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

[leon2009]

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

[Vladimr]

Код:

1 2 3 4 5 6 7 8 9 10

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]

Код:

1 2 3 4 5 6 7 8 9 10

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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 надо будет добавить проверку

Код:

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

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

[Vladimr]

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

Код:

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

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

[leon2009]

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

[lmikle]

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

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

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

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