Считывать фрагмент Memo

[keef]

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

Есть файл file.txt, в нём хранятся данные такого формата:

24.10 пример1 ;
24.11 пример2 ;
20.9 пример ;

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

Вопрос в том как это реализовать, прошу помочь.

[rockedit]

Здравствуйте!
можно так к примеру

procedure TForm1.Calendar1Change(Sender: TObject);
var
 f: TStringList;
 i: integer;
begin
 f := TstringList.Create();
 f.LoadFromFile('file.txt');
 for i:= 0 to f.Count-1 do
   if Pos(Inttostr(Calendar1.Day) + '.',f.Strings[i]) <> 0 then
    Begin
     Memo1.Text := f.Strings[i];
     break;
  end;
 f.Free;
end;

[keef]

Спасибо большое ) а можно сделать чтобы число не читалось ?

[rockedit]

Конечно можно

procedure TForm1.Calendar1Change(Sender: TObject);
var
 f: TStringList;
 i,index,j: integer;
 S: String;
begin
 index:=0;
 f := TstringList.Create();
 f.LoadFromFile('file.txt');
 for i:= 0 to f.Count-1 do
   if Pos(Inttostr(Calendar1.Day) + '.',f.Strings[i]) <> 0 then
    Begin
     S:= f.Strings[i];

      for j:=0 to length(S) do
       if s[j] <> ' ' then
        inc(index) else
        break;
     Memo1.Text := Trim(Copy(S, index,length(s)));
     break;
  end;
 f.Free;
end;

[keef]

rockedit, если не сложно можно второй пример как можно подробнее прокомментировать, а там уже сам буду доробатывать.

[rockedit]

procedure TForm1.Calendar1Change(Sender: TObject);
var
 f: TStringList; { грубо гворя это набор строк, строки считаються от 0
файл в эту "переменную" считываеться построчно
} 
i,index,j: integer;
 S: String;
begin
 index:=0;
 f := TstringList.Create(); // создаем 
 f.LoadFromFile('file.txt');// считываем содиржимое файла в f, построчно
{
цикл по кол-ву строк
до Count-1 т.к. строку номируються с 0
а если етсь хоть одна строка то Count = 1 а ее номер 0
т.е. строки с индексом Count не существует
}
 for i:= 0 to f.Count-1 do
{
функи Pos(s: string,s1,string) работает следуюшим образом
она исчит есть ли подстрока s в строке s1 и если да то возврашает нам
номер символа с которога начинаеться
подстрока s в строке s1, точка я в конце поставил по тому, что иначе 
для Pos 1,11,12,13,14,15,16,17,18,19 это будет одно и тоже
аналогично для 2 т.е. 2,21,22...
если подстрока не найдена Pos вернет 0
}
   if Pos(Inttostr(Calendar1.Day) + '.',f.Strings[i]) <> 0 then
    Begin
     S:= f.Strings[i];
// нашли подстроку, тепреь нужно отсеять число в начале
      for j:=0 to length(S) do
// по длине строки, функция length возврашает длину строки
       if s[j] <> ' ' then {
так как у нас формат строк
12.12 привет;
24.11 ророро;
то мы ишим первый первый пробел в этой строке, он
же разделитель числа и фразы
пока пробел не найден мы нарашиваем счетчик index
}
        inc(index) else
        break; //пробел найде, выходим
{
trim - удаляет пробелы в начале строки т.е. к примеру
Trim('       привет') = 'привет', функция Copy копирует символы строки
S с символа index по length(S), т.е. до конца строки, тут может стоять
лбое число не меньшее чем index 
}
     Memo1.Text := Trim(Copy(S, index,length(s)));
     break;
  end;
 f.Free; //очишаем память
end;

[keef]

Спасибо, буду разбираться.

[keef]

Сообщение от rockedit

   if Pos(Inttostr(Calendar1.Day) + '.' + IntToStr(Calendar1.Month)'.',f.Strings[i]) <> 0 then

с этим вот проблемка
дописал ещё чтобы по месяцу смотрел, но всё равно для него число 5 и 25 одно и тоже и на обоих числах он видит одинаковые записи, ещё проблемка то что месяц не учитывается, тоесть на каждом месяце он показывает заметки на числе 5 и 25

[keef]

Вопрос все ещё актуален.