*.mat Datei Inhalt in Listbox einlesen und in Edit anzeigen

[DRPEnc]

Hi, Ich hab vor zwei Tagen delphiprogrammieren angefangen...

Arbeite aber schon an einem großen Projekt. Ich nenne es DRPEnc.

Nun bin ich aber wieder an einen Punkt gekommen wo ich nicht weiter komme.
Somit kommt Ihr Jungs und Mädels ins Spiel.

Um es abzukürzen, hier das Problem:

Ich hab eine Datei mit der Endung *.mat. Diese ist eine TXT-Datei.
Dies ist zum Beispiel der Inhalt:

Code:

 8,16,19,22,26,27,29,34,
16,16,22,24,27,29,34,35,
19,22,26,27,29,34,35,38,
22,22,26,27,29,34,35,40,
22,26,27,29,32,35,40,48,
26,27,29,32,35,40,48,50,
26,27,29,35,40,48,50,60,
27,29,35,40,48,50,60,62

Was ist nun das Endziehl? Das hier:

Code:

:intra_matrix=8,16,19,22,26,27,29,...,62

Alles halt in eine Zeile.

Den Dateinamen kann ich ja zum Beispiel mit:

Delphi-Quellcode:

//Open Input File
procedure TForm1.Button11Click(Sender: TObject);
begin
OpenDialog1.Execute;
//Show Path in Edit 1
form1.ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
//Debug
edit1.text:='   ' + '"' + OpenDialog1.FileName + '"'

end;

einlesen und in Edit1 anzeigen lassen.

Hier will ich aber erreichen, das ich den Inhalt der *.mat-Datei welche 8Zeilig ist in eine Zeile schreiben und was davorschreiben.
Somit muss was ähnliches her...

Ich hab das Forum hier 30 Minuten durchsucht und nichts passendes gefunden...

Dies funktioniert garnicht (Ich hab desshalb die Zeilen deaktiviert...):

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
//var
//line;
begin
OpenDialog1.Execute;
if Opendialog1.execute then
//form1.ListBox4.Items.lines.loadfromfile(Opendialog1.filename);
//Debug
//edit1.text:=':intra_matrix=' + lines.loadfromfile(Opendialog1.filename)
end;

Kann mir Einer von Euch damit helfen? Währe sehr dankbar. :bouncing4:

[edit=Luckie]Unnötig lange zeile gekürzt. Mfg, Luckie[/edit]

[Luckie]

Lad den ganzen Krempel in eine Stringliste und ersetze alle Zeilenzmbrüche (#13#10) durch nichts. Schon hast du alle sin eine Zeile. ;)

[DRPEnc]

... wenn ich wüsste wie:gruebel:

Ich will ja dann alles in ner Edit haben...

[Luckie]

StringReplace -> Hilfe.

[DRPEnc]

Du meinst in der Hilfe von Delphi? Sorry ... Ich hab zuvor noch nie ne Striplist erstellt.

[Luckie]

Was ist denn eien StripList um Gottes Willen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(StringReplace(Listbox1.Items.Text, #13#10, '', [rfReplaceAll]));
end;

[DRPEnc]

Striplist ... :wall:

Sorry und THX für den Code

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
//Show Path in Edit 1
form1.ListBox4.Items.LoadFromFile(OpenDialog1.FileName);
edit1.text:=':intra_matrix=' + (StringReplace(form1.Listbox4.Items.Text, #13#10, '', [rfReplaceAll]))

end;

So gehts ... aber wie lösch ich das leerzeichen vor der Acht...

Code:

:intra_matrix= 8,16,19,...62

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
//Show Path in Edit 1
form1.ListBox4.Items.LoadFromFile(OpenDialog1.FileName);
edit1.text:=':intra_matrix=' + (Trim(StringReplace(form1.Listbox4.Items.Text, #13#10, '', [rfReplaceAll])))

end;

Nun hab ichs!!! Endlich :firejump: THX nochmal lucki

[dizzy]

ist'n Leerzeichen, gell!? "trim"

...\edit: n sekündchen zu spät... :roll: