Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Wieder Funktionen, ich lerne es nie ;(

   
    by Teddyman, 13. Apr 2004
  Danke Heipoei,
  wie mache ich es denn so, dass die Seriennummern, die in Edit 1 bis Edit 4 stehen in die Messwerte.txt gespeichert werden?
  danke.
  
  procedure schreib_ans(sernr: string; ans: Byte); //sernr = die nummer; ans = sernr von 1 bis 4
  var
  fp: textfile; //dient als filepointer
  begin
  assignFile(fp, 'C:\Messwerte.txt'); //gibt einen pointer auf die datei
  append(fp); //öffnet die...
• Forum: Programmieren allgemein

  Wieder Funktionen, ich lerne es nie ;(

   
    by Teddyman, 13. Apr 2004
  Hallo, da ich wirklich Anfänger bin, fällt ir einiges schwer. Ich bitte um euer Verständnis.
  Und ich finde die Hilfe hier sehr gut, Danke.
  
  Habe folgendes Problem:
  Ich will vier Seriennnummern eingeben ANS1 bis ANS4 und diese in eine Textdatei speichern.
  Wie kann ich den unten stehenden Code durch evtl. einer Funktion kürzen?
  Danke.
  
  
  //Seriennummer ANS1 eingeben