Witam, Zaczynam programować w delphi i mam pytanie jak sprawdzić czy tekst wpisany w edit1 znajduje się w zmiennej znaki zdeklarowanej jako string?
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tamif edit1 = znaki then If Pos(edit1.text,' '+znaki)>0 then
Application.MessageBox('Znaleziono!','');Wild_Master_Airborne napisał:W takim razie dużo lepszym miejscem na przechowywanie "szyków" będzie tablica albo klasa tstrigs.W zmiennej jest zapisane wiele szyków znaków
w formie
xxxxxxxxx
zzzzzzzzz
yyyyyyyy
If Pos(edit1.text,' '+znaki)>0 then
znaleziono:=false;
for i:=0 to StringList.Count-1 do
if StringList[i]=edit1.Text then begin
znaleziono:=true;
break;
end;var
znaki : String;
SynHttp : THttpSend;
begin
SynHttp := THttpSend.Create;
SynHttp.UserAgent := prze_UserAgent;
SynHttp.HTTPMethod('GET', 'adres strony');
SetLength(znaki,SynHttp.Document.Size);
SynHttp.Document.Read(Pointer(znaki)^, Length(znaki));
SynHttp.Free;
Wild_Master_Airborne napisał:Nie no znam, Próbowałem i nadal nie mogę tego zrobić nie działa no =( Możesz Napisać ten Warunek?
Dżyszla napisał:@wild... W takim razie należy rozwiązać to zupełnie inaczej. Wczytaj tekst do obiektu tylko TStringList (LoadFromFile), następnie tworzysz pętlę:znaleziono:=false; for i:=0 to StringList.Count-1 do if StringList[i]=edit1.Text then begin znaleziono:=true; break; end;
procedure TForm1.Button1Click(Sender: TObject);
var
Lista: TStrings;
Petla: integer;
Jest: boolean;
begin
Lista:=TStringList.Create;
try
with Lista do
begin
LoadFromFile('c:\test.txt');
Jest:=False;
for Petla:=0 to Count-1 do
if Pos(Edit1.Text,Lista[Petla])>0 then
begin
Jest:=True;
Break;
end;
end;
except
end;
FreeAndNil(Lista);
end;
if Pos(Edit1.Text,Znaki)>0 then
begin
//[...]
end;
