hm es handelt sich um eine
DLL, wenn ich sie in eine stringlist lade ist da nur ein item mit 2 zeichen....
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
sl: tstringlist;
i: integer;
begin
sl := tstringlist.create;
sl.LoadFromFile(pfad); <<<
DLL Pfad
for i := 0
to sl.count-1
do
begin
if pos(ww, sl.Strings[i]) > 0
then
begin
StatusBar1.Panels[0].Text := '
Current server: Westwood';
exit;
end
else
begin
if pos(wu, sl.Strings[i]) > 0
then
begin
StatusBar1.Panels[0].Text := '
Current server: CNCR';
exit;
end;
end;
end;
sl.Free;
end;
eine der beiden if abfragen stimmt 100% zu...da ich aber nur 1 item erhalte... die
DLL selber hat mehr als 100