Delphi, поиск в текстовом файле

Question

Итак, у меня есть edit1 и edit2 + на форме , когда я поместил некоторое число в edit1, после того как на button_clik он будет искать 12345 в указанном текстовом файле, если он найден, прочитайте строку после разделителя или все строки и pu it для редактирования2.

код:

procedure TForm1.Button1Click(Sender: TObject); var sl : TStringList; ix : Integer; 

begin sl := TStringList.Create; try 
    sl.LoadFromFile('C:\Polozky.txt'); 
    ix := sl.IndexOf(Edit1.Text); 
    //d := SL.ValueFromIndex[IX]; 
    if ix > -1 then ShowMessage('OK') Else ShowMessage('NOTHING'); finally 
    sl.Free; end; end; 

Здравствуй, да мой файл через запятую

12345,CAR 
12233,BUS 

..... я хотел бы найти 12345 ADN ставить машину в EDIT2.

Answer 1

tStringList.Values будет искать строку формы Name=Value. Если вы хотите использовать другой разделитель, например запятую, установите NameValueSeparator. В приведенном ниже коде отображается сообщение «BUS».

var 
    SL : tStringList; 
begin 
    SL := tStringList . Create; 

    SL . Add ('12345,CAR'); 
    SL . Add ('12233,BUS'); 

    SL . NameValueSeparator := ','; 

    ShowMessage (SL . Values [ '12233' ]); 
end;