Sorry noch eine Frage

Ich möchte meine Musikstücke abspeichern
Dazu muss ich die Oberfläsche meine grids nach Noten durchsuchen und diese
dann in eine Zeile schreiben. (Kein Problem)..

Habe aber noch nicht viel mit Text unter Delphi gemacht (InI) ausgenommen.
In VB würde ich das über Print verwirklichen.

gibt es etwas ähnliches in Delphi oder ist es einfacher
das mit einer TStringliste zu verwirklichen wenn es denn geht.

markieren

Delphi-Quellcode:

FF = FreeFile
Open FilePath For Output As #FF
Print #FF, Left(Temp, Len(Temp) - 1);

usw..
So was gibt es oder Ähnlich?

EIDT:

Zitat:

das mit einer TStringliste zu verwirklichen wenn es denn geht.

Ist ja eigentlich quatsch
Würde in dem Fall ja dann alles doppelt machen.
gruss

Clientdataset >> XML?

Zitat von Bummi:

Clientdataset >> XML?

Jo vergessen ...
Einfache TextDatei.

gruss

Habe es jetzt mal so gemacht.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMidiTracker.SaveFile;
var
 IntA: Integer;
 IntB: Integer;
 Temp: String;
 f: Textfile;
 myFile: string;

begin

  myFile := SKAERO_SaveFileDialog(MainHandle, 'MidiTracker files (*.mtf*)|*.mtf*', 'mtf', 'MediTrackerFile');
  AssignFile(f, myFile);

  for IntA := 0 to 7 do
  begin
    TrackLength := 0;

    for IntB := 1000 downto 0 do
    begin
      if Grid[IntA, IntB] > -1 then
      begin
        TrackLength := IntB;
        break;
      end;
    end;

    Temp := '';
    for IntB := 0 to TrackLength do
      Temp := Temp + IntToStr(Grid[IntA, IntB]) + ',';

    Writeln(f, LeftStr(Temp, Length(Temp) - 1)); // <<<<< Error EInOutError I/O Error 103

    Temp := '';
    for IntB := 0 to TrackLength do
      Temp := Temp + IntToStr(InstGrid[IntA, IntB]) + ',';

    Writeln(f, LeftStr(Temp, Length(Temp) - 1));
  end;

  Writeln(f, IntToStr(Tempo));

  Temp := '';
  for IntA := 0 to 7 do
    Temp := Temp + IntToStr(CurrentInst[IntA]) + ',';

  Writeln(f, LeftStr(Temp, Length(Temp) - 1));

  Closefile(f);

end;

Bekomme aber beim ersten zugriff einen EInOutError I/O Error 103.

Funktioniert das mit SaveDialog nicht?

gruss

markieren

Delphi-Quellcode:

AssignFile(f,..);
Rewrite(f);

Zitat von daywalker9:

markieren

Delphi-Quellcode:

AssignFile(f,..);
Rewrite(f);

Das ist alles ?
Hab die Zeile vergessen..

gruss

Zitat von EWeiss:

Zitat von daywalker9:

markieren

Delphi-Quellcode:

AssignFile(f,..);
Rewrite(f);

Das ist alles ?
Hab die Zeile vergessen..

gruss

Ja, Rewrite wenn Du neuschreiben willst, und Append(f) wenn du anfügen willst

Danke hab das wohl in der Beschreibung übersehen.
Funktioniert prächtig kann also nun einen Neue Version
vom Piano hochladen..

gruss