Witam. Wczytuję dane z pliku tekstowego, które są wczytywane do pola ListBox.
W tej chwili wczytuje mi dowolny tekst, w dowolnej liczbie linii.
Chciałbym, aby gdy w dowolnej linii znajdzie się chodź jedna cyfra, liczba bądź znak specjalny (również spacja) został wyświetlony komunikat "złe dane". Dopuszczalne są więc tylko małe litery a-z.
W chwili obecnej moja procedura wczytywania danych wygląda tak:
procedure TForm1.Button1Click(Sender: TObject);
begin
if(OpenDialog1.Execute) then //Jeżeli uda się odworzyć plik
begin
ListBox1.Items.LoadFromFile(OpenDialog1.FileName); //Wczytanie zbiorów do listy 1
Button2.Enabled := true; //Aktywacja przycisku 'Licz'
Button3.Enabled := false; //Dezaktywacja przycisku 'Zapisz'
ListBox2.Clear; //Wyczeszczenie listy 2
end
else
MessageDlg('Nie wybrales pliku', mtInformation, [mbCancel], 0); //Gdy nie uda się odworzyć pliku wyswietlenie komunikatu
end;
Język: Pascal
Liczę na pomoc..