Hallo,
Ich würde gerne in ein dyn. Array einen string einlesen und zwar buchstabenweise.
Anschließend soll ein buchstabe in ein edit feld eingegeben werden und eine procedure gibt aus wie oft dieser buchstabe in dem oben eingelesenen array vorkommt.
Momentan bin ich beim einlesen in das array soweit :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,laenge :integer;
wort :string;
BS_array: array of string;
begin
wort := edit1.text;
laenge := Length(wort);
Setlength(BS_array,laenge);
For i := 1 to (laenge-1) do
begin
BS_array[1] := wort; // ich nehme an in diesem Bereich brauch ich einen befehl der den string zerlegt und damit einzelne Stellen belegt
end;
Danke im Vorraus !
