Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

чтото не так

ссссс © (2007-09-10 15:56:00)
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] = '

Сергей М. (2007-09-10 16:13:00) [1]

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

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

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

Германн (2007-09-10 16:05:00) [2]
Достал.
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1189424183&n=0

zx-zx-zx (2007-09-10 16:02:00) [3]
программа всю строку копирует вместо части со словом

zx-zx-zx (2007-09-10 16:02:00) [4]
да я рад бы отладчиком
так все работает
но почемуто вся строка копируется!!!!!

Desdechado (2007-09-10 16:01:00) [5]
Отладчик уже не в моде?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »