Sers Delphi-Programmierer,

nämlich hab ich folgendes Problem mit der DriveCombobox nämlich möchte ich alle Laufwerke die aufgelistet sind in ein memo feld laden und die nebeneinander blos schaff ich des nur des erste laufwerk auszulesen das wars dann auch.

Ich bräuchte alle Laufwerke in einer Reihe mit einem Komma getrennt.

Danke schon mal im voraus


Mit freundlichen Grüßen


kumar89

Meinst Du so?Memo1.Text := StringReplace(Trim(DriveCombobox1.Items.Text),sLineBreak,', ',[rfReplaceAll]);

Perfekt

Danke dir

Hab folgendes jetzt bemerkt, der Code geht, blos überschreibt der mir meinen vorherigen Daten die in dem Feld ausgelesen werden.

Nämlich hab ich auch die Procedure mit einem bit button und System.lines.add um die anderen Daten einzulesen.

Könntest du mir da noch bitte helfen?


Mit freundlichen Grüßen


kumar89

Dann schreib die Zeile anstatt direkt in den Memo.Text erst in eine Stringvariable und füge diese mit Add den Memo.Lines hinzu.

des was Items.Text macht, hätte man auch selber machen können
quasi etwa so:

markieren

Delphi-Quellcode:

S := '';
For i := 0 to DriveCombobox1.Items.Count - 1 do
  S := S + DriveCombobox1.Items[i] + ',';
Memo1.Lines.Add(S);

@kumar89: und ein ordentlicher Satzbau wär dringend erforderlich, ich musste zweimal den Text durchlesen um durch die ganzen "nämlich" und fehlenden Satzzeichen zu verstehen was du überhaupt willst.

Zitat von himitsu:

des was Items.Text macht, hätte man auch selber machen können
quasi etwa so:

markieren

Delphi-Quellcode:

S := '';
For i := 0 to DriveCombobox1.Items.Count - 1 do
  S := S + DriveCombobox1.Items[i] + ',';
Memo1.Lines.Add(S);

Dann musst Du aber das letzte Komma wieder löschen.

Zitat von matashen:

@kumar89: und ein ordentlicher Satzbau wär dringend erforderlich, ich musste zweimal den Text durchlesen um durch die ganzen "nämlich" und fehlenden Satzzeichen zu verstehen was du überhaupt willst.

ja hab verstanden hatte es eilig

wird nicht mehr passieren

Zitat von DeddyH:

Zitat von himitsu:

des was Items.Text macht, hätte man auch selber machen können
quasi etwa so:

markieren

Delphi-Quellcode:

S := '';
For i := 0 to DriveCombobox1.Items.Count - 1 do
  S := S + DriveCombobox1.Items[i] + ',';
Memo1.Lines.Add(S);

Dann musst Du aber das letzte Komma wieder löschen.

hat gepasst, danke dir, habs zusammen bekommen.

Vielen Dank nochmal