Parsen und abspeichern

[EWeiss]

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.

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

[Bummi]

Clientdataset >> XML?

[EWeiss]

Zitat:

Zitat von Bummi (Beitrag 1093481)

Clientdataset >> XML?

Jo vergessen ...
Einfache TextDatei.

gruss

[EWeiss]

Habe es jetzt mal so gemacht.

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

[daywalker9]

Delphi-Quellcode:

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

[EWeiss]

Zitat:

Zitat von daywalker9 (Beitrag 1093523)

Delphi-Quellcode:

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

Das ist alles ?
Hab die Zeile vergessen..

gruss

[daywalker9]

Zitat:

Zitat von EWeiss (Beitrag 1093524)

Zitat:

Zitat von daywalker9 (Beitrag 1093523)

Delphi-Quellcode:

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

Das ist alles ?
Hab die Zeile vergessen..

gruss

Ja, Rewrite wenn Du neuschreiben willst, und

Delphi-Quellcode:

Append(f)

wenn du anfügen willst

[EWeiss]

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

gruss