кусок кода считать не из тестового файла а из Tmemo

[Stanislav]

Здравствуйте форумчане.

Что то я не много не могу понять как вот этот кусок кода считать не из тестового файла а из Tmemo

assignfile(f, 'c:\123.txt');
reset(f);

z:=z+1;

for i:=1 to z do readln(f,s);

n:=copy(s,1, pos('/',s)-1);
delete(s, 1, pos('/',s));

p:=copy(s,1, pos('/',s)-1);
delete(s, 1, pos('/',s));

Заранее благодарю...

[Alex21]

memo1.Lines[i] //где i - номер строки.

или memo1.Text

[Stanislav]

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

memo1.Lines[i]

или memo1.Text

Спасибо конечно мне это понятно но как быть дальше я пробывал так:

procedure TForm1.Button1Click(Sender: TObject);

begin
p:=p+1;
memo2.Lines[p]; 

readln(s); //пробывал P

n:=copy(s,1, pos('/',s)-1);
delete(s, 1, pos('/',s));

z:=copy(s,1, pos('/',s)-1);
delete(s, 1, pos('/',s));



label1.Caption:=(z);
end;

end.

Только вот не пракатывает хотя я догадываюсь почему но подрогому придумать не могу..... не могли бы вы помочь и написать как дальше быть ....

[Alex21]

memo1.Lines.LoadFromFile('файл'); // загружаете файл в Мемо
s:=memo2.Lines[p]; // загружаем в переменную S строку № P
{главное в Мемо свойство WordDrap(перенос слов) поставить FALSE}
{дальше строковые операции с S}

[Jeni]

Или делать как в предыдущем сообщении, или (если хочется всё читать "вручную") изменить код так, чтобы строки читались в цикле:

assignfile(f, 'c:\123.txt');
reset(f);

z:=z+1; // Не понял, для чего нужна эта строка. Где инициализируется z?

for i:=1 to z do
begin
  readln(f,s);

  n:=copy(s,1, pos('/',s)-1);
  delete(s, 1, pos('/',s));

  p:=copy(s,1, pos('/',s)-1);
  delete(s, 1, pos('/',s));
end;

Без begin...end получалось, что сначала все строки одна за другой считывались в S, а потом обрабатывалась только последняя строка.

[Stanislav]

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

Или делать как в предыдущем сообщении, или (если хочется всё читать "вручную") изменить код так, чтобы строки читались в цикле:

assignfile(f, 'c:\123.txt');
reset(f);

z:=z+1; // Не понял, для чего нужна эта строка. Где инициализируется z?

for i:=1 to z do
begin
  readln(f,s);

  n:=copy(s,1, pos('/',s)-1);
  delete(s, 1, pos('/',s));

  p:=copy(s,1, pos('/',s)-1);
  delete(s, 1, pos('/',s));
end;

Без begin...end получалось, что сначала все строки одна за другой считывались в S, а потом обрабатывалась только последняя строка.

1) Z - это номер строки которую считвыаем
2) Почему без begin? что то я не понял если внимательно посмотреть?
3) Где она иницилизируеться? это не важно, но если интересно в начале проекта и обнуляеться там же тип integer;
4) То что последния строка обрабатываеться это то же не важно поскольку необходимо было проверить правильность данного куска кода

Надеюсь теперь по понятнее... спасибо за ответы

p.s Я уже разобралься спасибо

[Stanislav]

Тут назрел еще один вопрос по memo:

Суть в следующем в memo записана следующая строка

1 2 3 4 5 6 7

как написать цикл что б он преобразовал ее к виду

1
2
3
4
5
6
7

у меня есть небольшая мысль не назнаю как продолжить : скажем заносим эту строку в переменную s типа string
а далее делаем так:

while s <> ' ' do
// а вот что дальше?
// может readln;



подскажите пожайлусто...

[Jeni]

Можно попробовать так:

var
  I: Integer;
  S: string;
begin
  S := Memo1.Text;
  
  for I := 1 to Length(S) do
    if S[I] = ' ' then S[I] := ',';

  Memo1.Lines.CommaText := S;
end;

[Stanislav]

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

Можно попробовать так:

var
  I: Integer;
  S: string;
begin
  S := Memo1.Text;
  
  for I := 1 to Length(S) do
    if S[I] = ' ' then S[I] := ',';

  Memo1.Lines.CommaText := S;
end;

Спасибо вы очень сильно выручили все работает....