Strings aus DBEdit neu zusammenstellen

[Darkchild]

Tach auch,

ich habe da eine so glaube ich sehr simple Frage, komme im moment aber leider nicht selbst auf die Lösung und zwar folgendes :

Ich habe insgesamt 3 DBEdit Felder, aus zweien davon möchte ich den Inhalt haben, soweit ist mir noch alles klar mache ich z.B. so:

Delphi-Quellcode:

var feld_1:string;
    feld_2:string;

        feld_1 := DBEdit1;
        feld_2 := DBEdit2;

Nun möchte ich aber aus den beiden Feldern jeweils nur den 1 sten Buchstaben haben und diese neu zusammensetzten und in meinem 3ten DBEdit anzeigen.

Meine Frage ist jetzt einfach, wie bekomme ich nur den ersten Buchstaben aus den ersten beiden DBEdit - Feldern ?

Habe da an die Funktion Pos gedacht, aber da der Text ja immer wieder unterschiedlich ist kann ich ja nicht die Position eines festen Elementes ermitteln !

Hilfe wäre echt nett, auch wenn es sich hier um eine, im Prinziep, echte Newbi frage handelt, nur im moment komme ich echt nicht drauf wie ich das jetzt machen soll.

Gruss
Darkchild

[mkinzler]

Entweder per Copy oder halt als Char über den Index:

Delphi-Quellcode:

feld_1[1]

[Mersadion]

Guten Morgen,

nachdem du die Werte aus den DBeditfeldern rausgeholt hast benutzt du am besten feld_1[1]. Die 1 steht für den ersten Buchstaben und wenn du alle einzeln auslesen möchtest benutzt du die Eigenschaft length(feld_1) length bestimmt dann automatisch die Wortlänge.

mfg Mersadion

[marabu]

Hallo Freunde,

die datensensitiven Controls dienen nur der Benutzerinteraktion. Ein Zugriff auf die Inhalte sollte über die Feldobjekte des verknüpften DataSets geschehen:

Delphi-Quellcode:

var
  s: String;
begin
  with DBEdit do
    s := DataSource.DataSet.FieldByName(DataField).AsString;
end;

Grüße vom marabu

[Darkchild]

Ok, vielen Dank an alle, das reicht mir schon als Antwort !

Viele Grüsse
Darkchild

[RavenIV]

Zitat:

Zitat von Darkchild

Meine Frage ist jetzt einfach, wie bekomme ich nur den ersten Buchstaben aus den ersten beiden DBEdit - Feldern ?

Delphi-Quellcode:

feld_1 := DBEdit1.EditText [1];
feld_2 := DBEdit2.EditText [1];

And den Inhalt der Editfelder kommst Du mit .Text (für TEdit) oder mit .EditText (für TDBEdit).
Da es sich um Strings handelt, kannst Du mit Text[1] auf den ersten Buchstaben zugreifen.

War es das, was Du wissen wolltest?

[Darkchild]

@Raven IV

Ja, alles was ich Wissen wollte wurde mir zu meiner vollsten Zufriedenheit beantwortet.

Vielen Dank !

Gruss
Darkchild