Teil eines Arrays auslesen

[HofiderKill]

Hallo
ich bin neu hier, habe aber schon 2 Jahre Delphi erfahrung aus der Schule!
ich bin momentan an der arbeit und programmiere ein Programm welches mir meine musik ordnet!

Dabei bin ich an ein problem gestoßen. ich habe meine Datein, welche ich in einem Array abspeichere. also z.B.: ABBA - Mamma Mia.mp3 (es ist nicht nur ein Titel) sie sind auch nicht mit dem Pfadnamen abgespeichert sondern nur mit Interpret - Titel
ich möchte nun nur den Interpreten auslesen, und diesen in eine Listbox eintragen lassen!

Quellcode

Code:

var i:integer;
begin
for i := 0 to 1000 do
  begin
   listbox1.Items.Add(songs[i]);
  end;

end;

das array

Code:

songs: array [1..1000]of string;

ich hoffe ihr könnt mir weiter helfen!
mfg Florian

[Deep-Sea]

Erstens: Du greifst in der Schleife auf songs[0] zu, obwohl songs erst bei 1 beginnt.
Zweitens: Wo genau ist jetzt das Problem?

[HofiderKill]

wenn ich aber bei songs[1] zugreif, dann steht der erste dateiname nicht in der listbox!
und mein problem ist ich bekomm so wenn ich das so wie bis jetzt ausgeben lasse
ABBA - Mamma Mia
ich möchte aber das er mir nur noch ABBA ausgibt. also alles was für dem - steht... das is mein momentan großes Problem

[DeddyH]

Copy und Pos könnten Dir weiterhelfen.

[edit] Wobei es allerdings eleganter wäre, die Struktur zu ändern und z.B. einen Record mit 2 Feldern zu verwenden. [/edit]

[Deep-Sea]

Zitat von HofiderKill:

wenn ich aber bei songs[1] zugreif, dann steht der erste dateiname nicht in der listbox!

Dann stimmt die von dir genannte Definition songs: array [1..1000]of string; wohl nicht

[HofiderKill]

Zitat von Deep-Sea:

Dann stimmt die von dir genannte Definition songs: array [1..1000]of string; wohl nicht

ok ja das kann sein^^ mit dem pos und copy befehl komm ich leider auch nicht ganz weiter....
ich steh mit dem problem leider voll auf der leitung

[DeddyH]

Delphi-Quellcode:

const WholeFilename = 'ABBA - Mamma Mia.mp3';
Interpret := Copy(WholeFilename,1,Pos(' -',WholeFilename) - 1);

Stimmt das Ergebnis so?

[Aphton]

Per Pos ermittelst du die Position eines beliebigen Zeichens/Substrings in einem beliebigen String:
Pos( 'a', 'cdab' )
liefert dir den Wert 3 zurück.

Per Copy kopierst du vom String, ab der Stelle x, n Zeichen:
Copy( 'Hilfe lesen!', 6, 5 )
liefert dir 'lesen' zurück!

Was DU nun machen musst, ist, dass du die Position von '-' ermittelst und alle Zeichen ab der Stelle 1 bis zu dieser Position kopierst und diesen kopierten String (Interpret) ausgibst.

Das sollte als Hilfestellung reichen!

[HofiderKill]

@ DeddyH
WoW ich bin echt beeindruckt ja das stimmt!!! Dankeschön! damit is mir echt sehr weitergeholfen.
wenn ich das dann für das gesamte array durchlaufen lasse einfach mit na for schleife oder? und dann in ein 2tes array neu abspeichern! das wär mir als ersters eingefallen

@ aphton ja mit den pos zeilen is nur das problem ads ja jeder interpret, bzw titel unterschiedlich lang sind

[DeddyH]

Statt des Arrays kannst Du doch gleich eine TStringlist nehmen, das ist bedeutend einfacher und dynamischer. Und wie bereits gesagt: ich würde die Struktur überdenken und statt einem einfachen String einen Record oder gleich eine Klasse verwenden.