Label & ListBox

[werser]

Привет всем. Такой вопрос:
Как сравнить текст в Label c первыми 10 символами строки в ListBox?
Помогите пожалуйста. Спасибо

[MaxNik2009]

Примерно так:

var
  TextLabel, TextLB: string;
  I: Integer;
begin

  TextLabel:= Label1.Caption;

  for I:= 0 to ListBox1.Items.Count - 1 do
  begin
    TextLB:= ListBox1.Items[I];
    if TextLabel = LeftStr(TextLB, 10) then // при условии что в Label текст из 10 символов
      ShowMessage('совпадение')
    else
      ShowMessage('не совпадение');
  end;

[SERG1980]

var I: Integer;
begin
 for I:= 0 to ListBox1.Items.Count - 1 do
   if Pos(Label.Caption,ListBox1.Items[i])=1 then
   ShowMessage('совпадение')
   else ShowMessage('не совпадение');
  end;

[werser]

Спасибо большое. А как это в Visual C++ сделать или если переписать с учитыванием синтаксиса все нормально будит?
Я за отету функцию имею ввиду - LeftStr, наверное там нада как то так писать ???????::LeftStr() ?
А во втором листинге: Pos
Или и так будит работать? Спасибо за коды

[SERG1980]

В делфи это работает а вот синтаксис языка си я не знаю