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

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

Помогите с загрузкой текста из файла. [D7, WinME]

Страницы:   < 1 2 >

avi ©   (2005-01-11 18:38:00) 

Уважаемые мастера помогите мне плс.Для загрузки текста в Label я
использую этот код:
var f: textfile;
  s: string;
  i: integer;
begin
  Label2.Tag := 31;
Timer1.Enabled := True;
  assignfile(f,'...\questions.DAT');
  reset(f);
  i := 0;
  s := '';
  while not eof(f) do
   begin
     inc(i);
     readln(f,s);
     case i of
        6: Label1.Caption := s;
        7: Label1.Caption :=s;
        8: Label1.Caption :=s;
        9: Label1.Caption :=s;
        10: Label1.Caption :=s;
     end;

   end;
  closefile(f)
но в файле на против некоторых строчек есть знак * мне надо что бы при загрузки текста звезда не загружалась.
Зарание спасибо.

---

avi   (2005-01-11 18:46:00) [21]

Уважаемый olokin вставил ваш код и Delphi Выдал ошибку;
Undeclared identifier: 'ReplaceString'

---

begin...end   (2005-01-11 18:44:00) [22]

> [2] avi   (11.01.05 18:42)

while not EOF(F) do
begin
 Inc(I);
 ReadLn(S);
 if I in [6..10] then
   Label1.Caption := StringReplaces(S, '*', '', [rfReplaceAll])
end

---

olookin   (2005-01-11 18:43:00) [23]

s:=ReplaceString(s,'*','',[rfReplaceAll]);

---

avi   (2005-01-11 18:42:00) [24]

Да а что вы можите преложить?

---

begin...end   (2005-01-11 18:40:00) [25]

> avi   (11.01.05 18:38)

> использую этот код

Плохой код.

---

Страницы:   < 1 2 >

Наверх