DriveCombobox ins Memofeld einlesen?

[kumar89]

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 :hi:


Mit freundlichen Grüßen


kumar89

[DeddyH]

Meinst Du so?

Delphi-Quellcode:

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

[kumar89]

Perfekt :thumb:

Danke dir

:cheers:

[kumar89]

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

[DeddyH]

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

[himitsu]

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

Delphi-Quellcode:

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

[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. :gruebel:

[DeddyH]

Zitat:

Zitat von himitsu

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

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.

[kumar89]

Zitat:

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. :gruebel:

ja hab verstanden hatte es eilig :)

wird nicht mehr passieren :thumb:

[kumar89]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von himitsu

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

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