Как такое осуществить?..

[MyLastHit]

К примеру имеется txt файл. Нужно из его 5 строки взять информацию таким образом что:
Все что до слова Start -удалить, все что после слова End удалить.

5.строка: khsfjfsk start Ssadsmda end dsaasdas
как обратиться к строке и из нее извлечь слово "Ssadsmda"?

[DIgorevich]

Var
s:string;
i:integer;
begin
s:='khsfjfsk start Ssadsmda end';
i:=Pos('start ', s);
delete(s,1,i+5);
i:=Pos(' end', s);
delete(s,i,length(s));
end;

[Пепел Феникса]

а строки берем или с помощью паскалеских AssignFile/Reset/Readln/CloseFile(с отсчетом строк)
или грузим в TStringList

[DIgorevich]

Можно сделать функцией:

function slovo(s:string):string;
var
i:integer;
begin
i:=Pos('start ', s);
delete(s,1,i+5);
i:=Pos(' end', s);
delete(s,i,length(s));
result:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(slovo('khsfjfsk start Ssadsmda end'));
end;

А строку получать по номеру.

[MyLastHit]

Всем спасибо за коды


TStringList

Какая у него вкладка?...

[ZaRDaK]

у него нет вкладки.

var TS: TStringList
OnCreate формы:
TS := TStringList.Create();
OnDestroy формы:
TS.Destroy;

[DIgorevich]

в каком смысле вкладка??
Строку можно получить так:

  s:=TStringlist.Strings[4];//где TStringlist - имя твоего списка

ну а дальше, как я и писал раньше.

[MyLastHit]

извините, у меня последний глупый вопрос...
как из Memo количество набраных символов возвратить в Edit, Text, Memo2 и тд?

[DIgorevich]

не совсем понятен последний вопрос... можно поподробнее?

[MyLastHit]

Вот к примеру создаю простой текстовый редактор. Кидаю Мемо, рядом TEdit в котором будет указано количество символов набранных в МЕМО. Как реализовать такое?