Скачать: CL | DM;

переменные файла   Найти похожие ветки 

← →
self001   (2004-11-18 21:04) [0]

нужно чобы с файла считалось 3 переменых (i:integer;s,s1:string;)
 делаю я так
(l:tfile*tfile = record ...*,f:textfile)
begin
assignfile(f,"c:\go.txt");
reset(f);
while not eof(f) do
begin
readln(f,l.s);

memo1.Lines.Add(s);
end;
closefile(f);
end;
вся проблема в том что в файле есть еще цыфры которые
принадлежат i как выводить только s без i

---

← →
Anatoly Podgoretsky ©   (2004-11-18 21:05) [1]

А по русски и с примером?

---

← →
self001   (2004-11-18 21:16) [2]

ПРИМЕР
*korn = record
 i:integer;
 s:string;
 end;*
*var
l:korn;
 f:textfile;*
>>procedure TForm1.Button1Click(Sender: TObject);
var
begin
assignfile(f,"c:\korn.txt");
reset(f);
while not eof(f) do
begin
readln(f,l.s);

memo1.Lines.Add(l.s);
end;
closefile(f);

end;
в файле такие поля
a 1
2
ясно что это все string но нужно что бы разделялмсь переменные S
и I
вывод должен быть
>>a
а не
a1
2

---

← →
Anatoly Podgoretsky ©   (2004-11-18 21:23) [3]

Переменная структура строк, можно читать только как строки и делать парсинг, по своим правилам.

---

← →
KilkennyCat ©   (2004-11-18 22:19) [4]

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

---

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

Скачать: CL | DM;



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