VAR
DOSYA : TextFile;
KAYIT : STRING[110];
BEGIN
AssignFile(DOSYA,'RENK.INI');
{$I-}
RESET(DOSYA);
{$I-}
IF IOResult <> 0 THEN
BEGIN
//ShowMessage('DOSYA YOK');
Rewrite(DOSYA);
KAYIT :='ISTEDIĞINI YAZ'; WriteLN(DOSYA,KAYIT);
CloseFile(DOSYA);
END;
Reset(DOSYA);
ReadLN(DOSYA,KAYIT);
EDIT1.TEXT := KAYIT;// TURUNDE DIYEBİLİRSİN RENKLERLE ILGILI NE YAPIYORSAN SAYET;
END;
|