работа с *.txt

[мимо]

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

[vovk]

Если правильно понял, то можно либо просто ещё раз загрузить из файла, либо завести переменную Tstrings, загрузить туда данные

Var
St: TStrings;
begin
St:=TStringList.Create;
St.LoadFromFile('c:\1.txt');

и с неё по мере надобности выбирать то что нужно

[мимо]

типа такого?

Var
F: TextFile;//текстовая переменная
MyCol: TStringList;//Количество строк..
SS:String;

begin
MyCol:= TStringList.Create;
MyCol.Clear;

AssignFile(F, 'Путь к файлу');
Reset(F);//открыть для чтения

 While NOT EOF(F) do //пока не кончится файл
begin 
   Readln(F, SS);
        if SS[1] = 't' then Begin //если конечно известна первая буква записи в строке
        MyCol.Add(SS) ;
        end;
end;

только не получается - error какой-то

[vovk]

Ты поставь брэкпоинт поставь посмотри где ошибка то. На вид ничего вроде криминального

[мимо]

да доходит до Reset(F);//открыть для чтения
Project raised exception class EInOutError with message 'I/O error 104'. Process stopped

[vovk]

а вот это где обьявляется? в той же процедуре что и описана?

Var
F: TextFile;//текстовая переменная
MyCol: TStringList;//Количество строк..
SS:String;

Можно процедуру целиком посмотреть?

[мимо]

старую я уже стер (
вот. нашел новую. только там сразу с условием

procedure TForm1.Button1Click(Sender: TObject);
var
str:tstringlist;
c,d:integer;
strg:string;
begin
 str:=tstringlist.create;
 if opendialog1.Execute then
 str.loadfromfile(opendialog1.FileName);
  for c := 0 to str.Count-1 do
  begin
   d:=pos(':',str.Strings[c]);
   strg:=copy(str.Strings[c],0,d);
   if strg <> '' then
  memo1.Lines.add(strg);
 end;
end;

теперь нужно убрать условие - просто открыть и отобразить файл

[vovk]

А зачем ты их ищеш то? Их писать надо..

Скажи лучше что хочеш добится то? чтоб файл 1 раз считать и во время работы обращатся можно было не к файлу а к переменной в которую считал?
А усло вие то убери если мешает.

Просто открыть и отобразить ты же делал..
1 строка

memo1.lines.loadfromfile('c:\1.txt')

ни переменнх ни цикла ничего не надо ...

[мимо]

а можешь убрать из предыдущего поста, из кода, условие, чтобы можно было открыть просто файл. любой файл выбрать и открыть.
[QUOTE=vovk;292718]

Скажи лучше что хочеш добится то? чтоб файл 1 раз считать и во время работы обращатся можно было не к файлу а к переменной в которую считал?
QUOTE]
файл один раз считать и применять к нему разные условия.

[vovk]

да пожалуйста

procedure TForm1.Button1Click(Sender: TObject);
begin
 str:=tstringlist.create;
 if opendialog1.Execute then
 begin 
    str.loadfromfile(opendialog1.FileName);
    Memo1.Lines.Assign(str);
 end;
end;

только переменную обьяви не тут, а как говорили в interface

var
  Form1: TForm1;
  Str:TStringList;

Потом можеш в любой процедуре к ней обращатся, а если в процедуре нажатия на кнопку обьявиш, то она прекратит своё существование после окончания процедуры.