![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Подскажите пожалуйста как вывести в TEdit1 и TEdit2 соответственно значения "100" и "200" из файла, который выглядит так:
A=56 B=35 X=100 Y=200 C=90 (файл текстовый) |
|
#2
|
||||
|
||||
|
Грузи в TStringList этот файл и построчно обрабатывай
|
|
#3
|
||||
|
||||
|
Вот исходник
В файле text.txt хранится твой текст |
|
#4
|
||||
|
||||
|
Код:
var
s: string;
i,j: integer;
Str: TStringList;
begin
Str:=TStringLIst.Create;
Str.LoadFromFile('text.txt');
for i:=0 to Str.Count-1 do
begin
s:=Str.Strings[i];
if pos('X=',s)<>0
then
begin
j:=pos(' ',s);
Edit1.Text:=Copy(s,pos('X=',s)+2,j-(pos('X=',s)+2));
Delete(s,1,pos(' ',s));
Edit2.Text:=Copy(s,pos('Y=',s)+2,length(s));
end;
end;
Str.Free;
end; |
|
#5
|
||||
|
||||
|
Цитата:
Если уж создаешь объект, не забывай его освобождать методом Free. |