|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Чтение строк из файла
Подскажите пожалуйста как вывести в TEdit1 и TEdit2 соответственно значения "100" и "200" из файла, который выглядит так:
A=56 B=35 X=100 Y=200 C=90 (файл текстовый) |
#2
|
||||
|
||||
Грузи в TStringList этот файл и построчно обрабатывай
THE CRACKER IS OUT THERE |
#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. |