Deutsches Lazarusforum

Hallo zusammen,

ich habe hier Kaspersky im Betrieb laufen. Bei der zeitgesteuerten Systemüberprüfung wurde nun das Installationspaket von Lazarus als infiziert gekennzeichnet (Screenshot's im Anhang). Im zweiten Durchgang habe ich das einzelne Paket von einem Backup-Laufwerk scannen lassen - mit ...

slai hat geschrieben:entweder im source editor dateieinstellungen->kodierung->utf8 oder im Menü oben unter Werkzeuge->Kodierung von Projekten/Packages konvertieren..

Mein Gott... wie einfach. Danke! Ich werd's testen. Bin jetzt erstmal ins Bettchen unterwegs. Thx

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.Add(name);
Memo2.Lines.Add(Edit1.Text);
Memo2.Lines.Add(leer);
Memo2.Lines.SaveToFile('chatlog.txt');
Edit1.clear;
end;
Was ich nicht verstehe: Du lädst die Chatlog-Datei in Memo1... dann schreibst Du, ich vermute den Beitrag ...

Man... nennt mich bescheuert, dass ich es nicht finde... wo finde ich das? ^^

Ich hatte kurzerhand alles auf AE, OE, UE und SS geändert, damit es keine Probleme gibt. Der Weg hier ist sicherlich eleganter.

Am einfachsten wäre es, wenn der Lehrer für ein Projekt die benötigten LCL-Komponenten festlegen könnte.
Das ist sicherlich ein interessanter Punkt. Viel elementarer ist für mich heute die Erkenntnis, dass die Lehrer, die mir seinerzeit einen erzählt haben, nicht wirklich wussten, was sie tun ...

Heyho,

es gibt da ein sehr schönes Tutorial, das ich aus dem Delphi-Forum (sorry) kenne. Verfasst von Christian Stelzmann, einem Guru dort vor Ort, ist es sicherlich eine Erwähnung wert... angelehnt ist es zum Teil an Delphi 7, passt also auch (gewissermaßen) zu Lazarus.

Hier geht's zu seiner ...

In Deutschland werden die Ergebnismöglichkeiten außerdem staatlich gefördert - je mehr, um so besser also.^^
Naja... als Kaufmann muss ich da natürlich die Kosten-Nutzen-Analyse vorrausschicken... schließlich dauert es bis zur entgültigen Eingliederung in die Gemeinde schon ein paar... Timer ...

Hm... ich halte Option 1 für die angenehmste Lösung. Die birgt ja allerdings Gefahren. So müssten Firewall und Virenschutz deaktiviert werden. Desweiteren sind diverse Ports zu öffnen. Der Prozess kann sehr systemlastig werden. Abgesehen davon ist es schwer zu ermitteln, wie viele Ergebnisse man ...

pluto hat geschrieben:Stimmt auch wieder. In ein C++ Forum wäre das bestimmt unangebracht... aber hier....

Also... gehet hin und vermehret Euch!

LG
Fabian

Ich danke Euch!

pluto hat geschrieben:[...](Das soll keine Werbung für Lazarus sein )

Ist es denn in diesem Forum falsch, dafür Werbung zu machen?

Was Projekt und Community angeht, würde ich ja eher sagen... "Gehet hin und vermehret Euch!"

LG
Fabian

Besten Dank! Hoffe ich kann hier auch etwas beitragen.

LG
Fabian

Kleiner Hinweis:

Listen durchläuft man von 0 bis Count-1, dann kann man sich die I-1 sparen.
Also statt:
for I := 1 to V_LIST.Count do

for I := 0 to V_LIST.Count-1 do

Dem stimme ich zu... ist bei mir Macht der Gewohnheit und rührt aus der Vergangenheit... da musste ich Dateien auswerten, die so ...

Manche Komponenten (wie die TImageList) erlauben allerdings, dass man eine beliebige Farbe als "Transparenz" definiert. Dann wird einfach alles außer dieser Farbe gezeichnet. Damit dürfte aber z.B. ein etwas ausgefeilteres Blending nicht gehen (schließlich kann man die Transparenz dann nur per ja ...

Hallo nochmal,

kein Schiebeposting: Das Problem habe ich gelöst mit dem Ansatz von mschnell. Das sieht so aus:

V_LIST.Sorted := True;
N_LIST.Sorted := True;

for I := 1 to V_LIST.Count do
begin
if V_LIST[I - 1] <> N_LIST[I - 1] then
begin
LIST.Add(N_LIST[I - 1]);
N_LIST.Delete(I - 1 ...

Moin zusammen,

sorry... im ersten Part war ein Denkfehler von mir drin. So hätte es lauten müssen:
for I := 1 to N_LIST.Count do
begin
if V_LIST.Strings[V_LIST.IndexOf(N_LIST.Strings[I - 1])] <> N_LIST.Strings[I - 1]
then LIST.Add(N_LIST.Strings[I - 1]);
end;

Da kommt die Out of Bound ...