1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158:
| var F: TextFile; begin if Opendialog1.FileName or SaveDialog1.FileName > '0' then
begin
if Opendialog1.FileName and SaveDialog1.FileName > '0' then begin ShowMessage('Bitte speichern Sie über die Funktion "Speichern unter"! Wählen Sie dort Ihre Datei aus.', 'Fehler bei Dateiauswahl!'); End else if OpenDialog1.FileName > '0'then begin AssignFile(F,OpenDialog1.FileName); Rewrite(F);
WriteLn(F, Edit1.Text); WriteLn(F, Edit2.Text); WriteLn(F, Edit3.Text); WriteLn(F, Edit4.Text); WriteLn(F, Edit5.Text); WriteLn(F, Edit6.Text); WriteLn(F, Edit7.Text); WriteLn(F, Edit8.Text); WriteLn(F, Edit9.Text); WriteLn(F, Edit10.Text); WriteLn(F, Edit11.Text); WriteLn(F, Edit12.Text); WriteLn(F, Edit13.Text); WriteLn(F, Edit14.Text); WriteLn(F, Edit15.Text); WriteLn(F, Edit16.Text); WriteLn(F, Edit17.Text); WriteLn(F, Edit18.Text); WriteLn(F, Edit19.Text); WriteLn(F, Edit20.Text); WriteLn(F, Edit21.Text); WriteLn(F, Edit22.Text); WriteLn(F, Edit23.Text); WriteLn(F, Edit24.Text); WriteLn(F, Edit25.Text); WriteLn(F, Edit26.Text); WriteLn(F, Edit27.Text); WriteLn(F, Edit28.Text); WriteLn(F, Edit29.Text); WriteLn(F, Edit30.Text); WriteLn(F, Edit31.Text); WriteLn(F, Edit32.Text); WriteLn(F, Edit33.Text); WriteLn(F, Edit34.Text); WriteLn(F, Edit35.Text); WriteLn(F, Edit36.Text); WriteLn(F, Edit37.Text); WriteLn(F, Edit38.Text); WriteLn(F, Edit39.Text); WriteLn(F, Edit40.Text); WriteLn(F, Edit41.Text); WriteLn(F, Edit42.Text); WriteLn(F, Edit43.Text); WriteLn(F, Edit44.Text); WriteLn(F, Edit45.Text); WriteLn(F, Edit46.Text); WriteLn(F, Edit47.Text); WriteLn(F, Edit48.Text); WriteLn(F, Edit49.Text); WriteLn(F, Edit50.Text); WriteLn(F, Edit51.Text); WriteLn(F, Edit52.Text); WriteLn(F, Edit54.Text); WriteLn(F, Edit55.Text); WriteLn(F, Edit56.Text); WriteLn(F, Edit57.Text); WriteLn(F, Edit58.Text); WriteLn(F, Edit59.Text); WriteLn(F, Label155.Caption); WriteLn(F, Label156.Caption);
CloseFile(F); Form1.Caption := 'Pumpentool ' + Opendialog1.FileName; END else begin AssignFile(F,SaveDialog1.FileName); Rewrite(F);
WriteLn(F, Edit1.Text); WriteLn(F, Edit2.Text); WriteLn(F, Edit3.Text); WriteLn(F, Edit4.Text); WriteLn(F, Edit5.Text); WriteLn(F, Edit6.Text); WriteLn(F, Edit7.Text); WriteLn(F, Edit8.Text); WriteLn(F, Edit9.Text); WriteLn(F, Edit10.Text); WriteLn(F, Edit11.Text); WriteLn(F, Edit12.Text); WriteLn(F, Edit13.Text); WriteLn(F, Edit14.Text); WriteLn(F, Edit15.Text); WriteLn(F, Edit16.Text); WriteLn(F, Edit17.Text); WriteLn(F, Edit18.Text); WriteLn(F, Edit19.Text); WriteLn(F, Edit20.Text); WriteLn(F, Edit21.Text); WriteLn(F, Edit22.Text); WriteLn(F, Edit23.Text); WriteLn(F, Edit24.Text); WriteLn(F, Edit25.Text); WriteLn(F, Edit26.Text); WriteLn(F, Edit27.Text); WriteLn(F, Edit28.Text); WriteLn(F, Edit29.Text); WriteLn(F, Edit30.Text); WriteLn(F, Edit31.Text); WriteLn(F, Edit32.Text); WriteLn(F, Edit33.Text); WriteLn(F, Edit34.Text); WriteLn(F, Edit35.Text); WriteLn(F, Edit36.Text); WriteLn(F, Edit37.Text); WriteLn(F, Edit38.Text); WriteLn(F, Edit39.Text); WriteLn(F, Edit40.Text); WriteLn(F, Edit41.Text); WriteLn(F, Edit42.Text); WriteLn(F, Edit43.Text); WriteLn(F, Edit44.Text); WriteLn(F, Edit45.Text); WriteLn(F, Edit46.Text); WriteLn(F, Edit47.Text); WriteLn(F, Edit48.Text); WriteLn(F, Edit49.Text); WriteLn(F, Edit50.Text); WriteLn(F, Edit51.Text); WriteLn(F, Edit52.Text); WriteLn(F, Edit54.Text); WriteLn(F, Edit55.Text); WriteLn(F, Edit56.Text); WriteLn(F, Edit57.Text); WriteLn(F, Edit58.Text); WriteLn(F, Edit59.Text); WriteLn(F, Label155.Caption); WriteLn(F, Label156.Caption);
CloseFile(F); Form1.Caption := 'Pumpentool ' + Savedialog1.FileName; end;
END
else ShowMessage('Bitte erst Profil abspeichern, mit "Speichern unter...".'); end; |