Antwort
John carpenters vampire los irgendwas (musst du mal Googlen is n heiler Film ) ;))
Antwort
Um es mit den Worten meines Lehrers zu sagen: du musst dahin wo was verkauft wird. Er hat aber auch gesagt dass Banken wegen der Diskretion nicht so geeignet sind.
Antwort
Nosferas, die erben der Nacht; black dagger; gegen das sommerlicht; skulduggery pleasant; Haus der vampire; nightwalker; sabriel; dhampir; Lady alexia; chicagoland vampires; rebellion der Engel; cat und bones; hexenzorn; mercy Thompson; Die sind mir grade spontan eingefallen xD das meiste sind buchreihen alle sehr gut ;)
Antwort
c ist schonmal keine option. du hast gesagt dass du das nicht möchtest, also solltest du es nicht als option sehen. ich an deiner stelle würde zu meinem hausarzt hingehen und dann selber einen termin machen. Dein leben ist wichtig, und so hart es klingen mag, aber wenn sonst niemand dafür kämpft (oder auch nur sieht dass gekämpft werden muss) musst du das selbst tun. Ich hoffe inständig dass du diese dunkle phase deines leben überwinden kannst und bald wieder lachend durch dein leben gehst. Verlier den Mut nicht :)
Antwort
A llein L amie L eben E intopf I ndigo N atur S alami E beresche I ntern N erven
:) ich hoffe das hilft
Antwort
Hier mein Quelltext:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Grids, ComCtrls;
type
TTextanalyse_Frm = class(TForm)
Tabelle_SG: TStringGrid;
Text_MM: TMemo;
Buchstabenstatistik_Btn: TButton;
Wortstatistik_Btn: TButton;
Tabelleloeschen_Btn: TButton;
procedure Wortstatistik_BtnClick(Sender: TObject);
procedure Buchstabenstatistik_BtnClick(Sender: TObject);
procedure Tabelleloeschen_BtnClick(Sender: TObject);
private
public
{ Public-Deklarationen }
end;
var
Textanalyse_Frm: TTextanalyse_Frm;
implementation
{$R *.DFM}
procedure TTextanalyse_Frm.Tabelleloeschen_BtnClick(Sender: TObject);
var Zeile, Spalte:integer;
begin
For Spalte:=0 to Tabelle_SG.ColCount-1 do begin
For Zeile:=0 to Tabelle_SG.RowCount-1 do begin
Tabelle_SG.Cells[Spalte,Zeile]:='';
end;
end;
end;
procedure TTextanalyse_Frm.Buchstabenstatistik_BtnClick(Sender: TObject);
var i,anzahl,position:integer;
s:string;
begin
Tabelle_SG.Cells[0,0]:='Buchstabe';
Tabelle_SG.Cells[1,0]:='Häufigkeit';
For i:=0 to 26 do begin
Tabelle_SG.Cells[0,i+1]:=char(i+65); //ab 96 kleine Buchstaben
end;
s:= Text_MM.Text;
s:= AnsiUpperCase(s);
Text_MM.Text := s;
For i:= 65 to 90 do begin // A bis Z
anzahl:=0;
Repeat
position:=Pos(char(i),s);
If position<>0 then begin
anzahl:=anzahl+1;
Delete(s,position,1);
end;
Until position=0;
Tabelle_SG.Cells[1,i-64]:= IntToStr(anzahl);
end;
end;
procedure TTextanalyse_Frm.Wortstatistik_BtnClick(Sender: TObject);
begin
//Hier sollen dann die einzelnen wörter gezählt werden
end;
end.
Antwort
https://downloads.embarcadero.com/free/delphi hier findest du eine 30-tage-testversion (kostenlos) ansonsten musst du deinen lehrer mal fragen unser lehrer hat und so ein lizenz-dingen gegeben mit dem wir 10 jahre kostenlos delphi haben, aber ich weiß leider den link nicht mehr :((( aber delphi ist (wenn man es versteht ein echt super programm, nur leider ist das mit dem verstehen auch manchmal so eine sache für sich, trozdem lustig und zu empfehlen) :*