| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TextFile, String - Delete [D7, XP]

Steep ©   (2008-01-13 19:02:00) 

Здравствуйте!
Дан тестовый файл: цифры разделенные знаком ';'
Я открываю файл - читаю строчку - в строчке читаю до точки с запятой, копирую эти цифры, удаляю вместе с точкой запятой и продолжаю
Вопрос следующий у меня не удаляются символы.....


 while not eof(f) do
   begin
     ReadLn(f, s);
     //Èùåì â ñòðîêå äàííûå
       Showmessage(s + '; now string');
     while s'' do
     begin
       k := Pos(';', s); //ïîçèöèÿ
         Showmessage( IntToStr(k) + '; Pos' );
       stemp := Copy(S, 0, k-1);
         Showmessage( stemp + '; that copy' );
         Showmessage( s + '; before delete' );
       Delete(S, 0, k); //Здесь не удаляются... может я чего не прально удаляю....  Delete(var S: string; Index, Count:Integer);
         Showmessage( s + '; after delete' );
     end;
   end;

---

Steep   (2008-01-13 19:10:00) [1]

> Anatoly Podgoretsky ©   (13.01.08 19:08) [3]
> ТочнееDelete(S, 1, к);


да спасибо - понял
я уже забыл что в строках с первого элемента....

---

Steep   (2008-01-13 19:09:00) [2]

все дошло
дошло!!!



while not eof(f) do
  begin
    ReadLn(f, s);
      Showmessage(s + '; now string');
    while s<>'' do
    begin
      k := Pos(';', s);
        Showmessage( IntToStr(k) + '; Pos' );
      stemp := Copy(S, 1, k-1);
        Showmessage( stemp + '; that copy' );
        Showmessage( s + '; before delete' );
      Delete(S, 1, k);
        Showmessage( s + '; after delete' );
    end;
  end;



---

Anatoly Podgoretsky   (2008-01-13 19:08:00) [3]

Точнее
Delete(S, 1, к);

---

Anatoly Podgoretsky   (2008-01-13 19:07:00) [4]

Delete(S, k, 1);

---

Steep   (2008-01-13 19:07:00) [5]

уже 5-й раз справку перечитал...

---

Наверх