uses bölümünde
System varsa çalışması lazım dur bende ki de değiştirmeden atayım sana
AssignFile(DOSYA,'WSDL.INI');
{$I-}
RESET(DOSYA);
{$I-}
IF IOResult <> 0 THEN
BEGIN
//ShowMessage('DOSYA YOK');
Rewrite(DOSYA);
KAYIT := 'ProvizyonIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'SevkBildirimIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'OdemeBilgisiIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'OdemeDurumKontrolIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'FaturaBilgisiIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'RaporIslemleri.wsdl'; WriteLN(DOSYA,KAYIT);
KAYIT := 'YardimciIslemler.wsdl'; WriteLN(DOSYA,KAYIT);
CloseFile(DOSYA);
END;
Reset(DOSYA);
FOR I := 1 TO 1 DO
ReadLN(DOSYA,KAYIT);
WSDLADI := KAYIT;
CloseFile(DOSYA);
|