Hallo !
Folgendes Problem:
Ich habe 4 Edit Felder mit dem inhalt (bsp) 4A569 5f433 3t598 6g5f4
nun möchte ich in einer for schleife die buchstaben entfernen. dazu habe ich folgendes gebastelt, funktioniert jedoch nicht :(
Delphi-Quellcode:
function CheckKey(List: TStringList): boolean;
var
i,x: Integer;
begin
Result := false;
for x := 1 to 4 do
begin
for i := length(List.Strings[x]) downto 1 do
delete(List.Strings[x],i,1);
ShowMessage(List.Strings[x]);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
List: TStringList;
i: Integer;
s: TComponent;
begin
for i := 1 to 4 do
begin
s := FindComponent('Edit' + IntToStr(i));
List := TStringList.Create;
List.Add(s.Name);
List.Free;
end;
CheckKey(List);
end;
wäre nett wenn mir jemand da zum ende helfen könnte :)