Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

XE4 firemonkey mobile app ile veri kaydetme

Konu, 'Pascal / Delphi / Delphi.NET' kısmında eminededeli tarafından paylaşıldı.

  1. eminededeli

    eminededeli Yeni Üye

    Kayıt:
    6 Mayıs 2013
    Mesajlar:
    3
    Beğenilen Mesajlar:
    0
    İyi günler,
    XE4 ile ios uygulamasına başladım. Fakat takıldığım bir nokta oldu. Edit ve bir butonum var. Edit'e girilen değeri butona bastığımda belirttiğim .txt dosyasına kaydetmek istiyorum. Bunu delphi7 ile yaptım fakat ios için uyarladığımda derlediğimde hata oluşmuyor. Simulatorde çalıtırıp denediğimde i/o hatası veriyor. Giriş çıkış hatası üzerine araştırdım fakat yine bir çözüm bulamadım. Bir önerisi olan ver mıdır acaba?
    Şimdiden teşekkür ederim.

    --- Ekleme ---

    Embarcadero'nun forum sitesinde araştırırken gerekli kodu buldum. Bu kadar gün arayıp burada konu açtıktan hemen sonra bunu bulmam da biraz ilginç oldu. :) Başka arkadaşlara da çözüm olması açısından kodumun tamamını burada paylaşıyorum.
    Kod:
    var
    satir:string;
    dosya:TextFile;
    
    begin
      AssignFile(dosya,ExtractFilePath(paramstr(0))+'ornek'+IntToStr(ComboBox1.ItemIndex+1)+'.txt');//önce dosyanın varlığını kontrol et eğer varsa edit mode da aç yoksa yeni dosya yarat
       if FileExists(ExtractFilePath(paramstr(0))+'ornek'+IntToStr(ComboBox1.ItemIndex+1)+'.txt') then
       begin
      Append(dosya);
       end
     else
    begin
    Rewrite(dosya);
    end;
    
    if (Edit2.Text='0.000') and (Edit3.Text='0.000') and (Edit4.Text='0.000') and (Edit5.Text='0.000') and (Edit6.Text='0.000') and (Edit7.Text='0.000') and (Edit8.Text='0.000') and (Edit9.Text='0.000') and (Edit10.Text='0.000') and (Edit11.Text='0.000') then
       begin
       Showmessage('Lütfen en az bir alan doldurunuz.');
       closefile(dosya);
       end
    else if ComboBox1.ItemIndex=0 then
    begin
      Rewrite(dosya);
      WriteLn(dosya, Edit2.Text);
      WriteLn(dosya, Edit3.Text);
      WriteLn(dosya, Edit4.Text);
      WriteLn(dosya, Edit5.Text);
      WriteLn(dosya, Edit6.Text);
      WriteLn(dosya, Edit7.Text);
      WriteLn(dosya, Edit8.Text);
      WriteLn(dosya, Edit9.Text);
      WriteLn(dosya, Edit10.Text);
      WriteLn(dosya, Edit11.Text);
      CloseFile(dosya);
      ShowMessage('0 nolu malzeme için bilgiler kaydedildi.');
      end
      else if ComboBox1.ItemIndex=1 then
      begin
      Rewrite(dosya);
      WriteLn(dosya, Edit2.Text);
      WriteLn(dosya, Edit3.Text);
      WriteLn(dosya, Edit4.Text);
      WriteLn(dosya, Edit5.Text);
      WriteLn(dosya, Edit6.Text);
      WriteLn(dosya, Edit7.Text);
      WriteLn(dosya, Edit8.Text);
      WriteLn(dosya, Edit9.Text);
      WriteLn(dosya, Edit10.Text);
      WriteLn(dosya, Edit11.Text);
      CloseFile(dosya);
      ShowMessage('1 nolu malzeme için bilgiler kaydedildi.');
      end
      else if ComboBox1.ItemIndex=2 then
      begin
      Rewrite(dosya);
      WriteLn(dosya, Edit2.Text);
      WriteLn(dosya, Edit3.Text);
      WriteLn(dosya, Edit4.Text);
      WriteLn(dosya, Edit5.Text);
      WriteLn(dosya, Edit6.Text);
      WriteLn(dosya, Edit7.Text);
      WriteLn(dosya, Edit8.Text);
      WriteLn(dosya, Edit9.Text);
      WriteLn(dosya, Edit10.Text);
      WriteLn(dosya, Edit11.Text);
      CloseFile(dosya);
      ShowMessage('2 nolu malzeme için bilgiler kaydedildi.');
      end
      else
      begin
     ShowMessage('Lütfen Malzeme türü seçiniz!');
     CloseFile(dosya);
      end;
    end;
     
    Son düzenleme yönetici tarafından yapıldı: 15 Mayıs 2013