Форум: "Начинающим";
Текущий архив: 2008.02.03;
Скачать: [xml.tar.bz2];

Вниз

TextFile, String - Delete   Найти похожие ветки 

← →
Steep   (2008-01-13 19:02) [0]

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


 while not eof(f) do
   begin
     ReadLn(f, s);
     //Èùåì â ñòðîêå äàííûå
       Showmessage(s + "; now string");
     while s<>"" do
     begin
       k := Pos(";", s); //&#239;&#238;&#231;&#232;&#246;&#232;&#255;
         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;

---

← →
Anatoly Podgoretsky ©   (2008-01-13 19:07) [1]

Delete(S, k, 1);

---

← →
Steep   (2008-01-13 19:07) [2]

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

---

← →
Anatoly Podgoretsky ©   (2008-01-13 19:08) [3]

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

---

← →
Steep   (2008-01-13 19:09) [4]

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



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;



---

← →
Steep   (2008-01-13 19:10) [5]

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


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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.02.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.048 c