Чтение частей строк из *.txt файлов

[HTL]

Нужен код который будет:

1) Забирать значение поля (text) edit1
2) Искать это значение в файле name.txt (До знака ":")
3) Выводить значение (Только после ":") этой строчки в поле (text) edit2

Пример:

Фаил: name.txt

3760933:waWYqTRg
3771446:oAvxgyr7
3794589:U926fGYx
3845145:DA5ECerE
3864361:0s8XOaF7
3902188:vp20s3aN
3928562:xKG1Fe59
3947053:7GtbvW1K
4061188:dv06kbRp
4063067:gpb6493t
4159143:anDSpu8i
4186813:FOHi9gm3
4354147:3OKOoDGf

Значение поля (text) edit1: 3760933
Значит значение поля (text) edit2 должно быть: oAvxgyr7

и

Значение поля (text) edit1: 1,а,р,н, все чево нету в txt фыйле (До ":")
Значит значение поля (text) edit2 должно быть: пусто, и должна выскочить масага

[Dj_smart]

Ну раз так нужен, сделаю за 10$
icq# 9804336

[HTL]

Я не думаю что такой скрипт будет стоить 10$, Я думаю что от 2$ до 5$

[Ntlegend]

HTL это форум програмистов а не фрилансёров.. если есть какаято трудноссть в написаниеи - то покажите в чом именно.. как вы пытаетесь сделать и что не получается.. тембболее если вам нада скрипт - то вы явно ошиблися адресом

[ИльяМалиновский]

var
 i, j, t: integer;
 ex: string;
 strings: array of strings;
begin
 reset(input, 'name.txt');
 rewrite(output, 'name.txt');
 readln(strings[1]);
 ex:= edit1.text;
 i:= 2;
 while strings[i-1] <> '' do
  begin
  readln(strings[i]);
  i:= i + 1;
  end;
 for j:= 1 to i-1 do
  begin
   t:= pos(':', strings[j]);
   if copy(strings[i],1,t-1) = ex then
    begin
     edit2.text:= copy(strings[i],t+1, length(strings[i])-t);
    end;
  end;
end.