Работа с текстовыми файлами

[Fastah]

Всем доброго дня, делаю задание по универу и по мере продвижения буду задавать в этой теме вопросы, пока возникли следующие:

-как реализовать: имеется текстовый файл, из него ищем строки в которых содержатся 2 идущих подряд символа %%, заносим результат в массив и выводим в ComboBox но уже без символов %%

[RUSt88]

а в чем, собсно, трабла?

прочел строку, нашел что в этой строке только 2 символа процента, определил их положение первого и вырезал функцией, можно тупо pos строку от 1-го символа до знака процент и еще раз после второго знака процента и до конца

[Fastah]

трабла в не знании названий функций/команд/операторов

если поиск происходит по pos, то как найденное занести в массив?

[Mad_Cat]

а зачем в массив то если есть combobox7

combobox.items.add(stroka);

[Roof]

Если знаний нету, то два выхода:
1) Почитать литературу, освоить прочитанное, закрепить практикой. Это нетрудно. И задать конкретные вопросы, что именно не получается.
2) Другой вариант, если не хотите ничего изучать - заказать решение за оплату. Это раздел Фриланс.

[Fastah]

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

Если знаний нету, то два выхода:
1) Почитать литературу, освоить прочитанное, закрепить практикой. Это нетрудно. И задать конкретные вопросы, что именно не получается.
2) Другой вариант, если не хотите ничего изучать - заказать решение за оплату. Это раздел Фриланс.

Был бы рад если бы подсказали что почитать, искал через гугл мало что нашёл, вроде бы рядом, да не то

[Stilet]

Так сойдет?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with ComboBox1 do begin
  Canvas.FillRect(Rect);
  Canvas.TextOut(Rect.Left,Rect.Top,StringReplace(Items[index],'%','',[rfreplaceAll]));
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 with ComboBox1 do begin
  Items.LoadFromFile('file1.txt');
  Style:=csOwnerDrawFixed;
  OnDrawItem:=ComboBox1DrawItem;
 end;
 
end;

end.

file1.txt - тот самый файл.

искал через гугл мало что нашёл

Молодец, улыбнул ) Действительно что можно найти в гугле кроме порнушки

[RUSt88]

искал через гугл мало что нашёл

да, представь, чтобы что-то искать, надо знать, что искать, а не тупо забивать строку поиска своей задачей