чтото не так

← →
ссссс (2007-09-10 15:56) [0]

procedure TForm1.Button2Click(Sender: TObject);
var
l,k,f : textfile;
{buf : array[0..255] of char; }
buff : Ppointer;
n : longint;
slitl : widestring;

begin

assignfile(k,"get.new");
rewrite(k);

assignfile(f,"get.mln");
reset(f);
readln(f,rs);

while not eof(f) do
begin
readln(f,rs);

gm := gmt(rs);
showmessage(gm);
writeln(k,gm);

end;

closefile(f);
closefile(k);

end;

function gmt(st:string) : widestring;

var
numst : integer;
numbegin : integer;
numend : integer;
gmts : widestring;
gmtsn : integer;
stlen : integer;
numru,numrr : integer;
errorm : boolean;

begin
errorm := false;

numrr := Pos("0000000",st);
numru := nummailrr;
if numru > 15 then
begin
dec(numru);

if
(
(st[numru] = " ") or
(st[numru] = ">") or
(st[numru] = "<") or
(st[numru] = "?") or
(st[numru] = ",") or
(st[numru] = """) or
(st[numru] = "&") or
(st[numru] = "%") or
(st[numru] = "*") or
(st[numru] = "!") or
(st[numru] = ":") or
(st[numru] = "!") or
(st[numru] = ":") or
(st[numru] = "/")

)

then
begin
errorm := true;
st := copy(st,numru,numrr + 8 - numru);
end;

if errorm then gmt := ""
else
gmt := st;

end;

end;

Программа должна достовать из текста слово находя его по коцу
но дело в том что она не справляется и в итогде не выделяет нужное слово
В файле выхода получается размер в два раза больше чем во входе

← →
Desdechado © (2007-09-10 16:01) [1]

Отладчик уже не в моде?

← →
zx-zx-zx (2007-09-10 16:02) [2]

программа всю строку копирует вместо части со словом

← →
zx-zx-zx (2007-09-10 16:02) [3]

да я рад бы отладчиком
так все работает
но почемуто вся строка копируется!!!!!

Достал.
http://delphimaster.net/view/1-1189424183/

> да я рад бы отладчиком
> так все работает

Бывают, конечно же, случаи, когда программа под отладчиком ведет себя иначе чем без оного.

Но твой случай к таковым никаким боком не относится.

чтото не так Найти похожие ветки